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GAMES 

FOR THE 

ATARI 

400/800 


HOW TO PROGRAM YOUR OWN GAMES 




PREFACE 

Among the many microcomputers on the market today some 
are designed more for scientific or control purposes while others 
are more suitable for great graphics and games. The ATARI micro¬ 
computers 400 and 800 belong to the second group. 

The ATARI computers provide many possibilities to create on-the- 
screen-graphics and also to produce almost any sound effect. 

The two features — graphics and sound — are exactly what's 
needed to program computer games. 

This booklet provides ideas on how to create your own computer 
games. 

This booklet deals primarily with BASIC examples. However, for 
very advanced programs, BASIC may be too slow; consequently, 
such programs should be written in machine language. But since 
not everybody knows how to program a 6502 microprocessor, we 
have included only one example in machine language at the end 
of the book. 



Important Notice 


A HINT: 

Users of ATARI-computers with only 16K of RAM may have 
problems with programs that use a character list in the RAM area. 
For example the following program: 

100 FOR 1=0 TO 1023 
110 POKE 16384+1, PEEK(57344+I) 

120 NEXT I 
130 POKE 756,64 

This program transfers the character list (1 K long) to S4000, but 
a computer with only 16K doesn' t have any memory at that 
location. So we have to transfer to $2000=8192. 

In location 756 there has to be the page boundary where the 
character list is to be found. If this is $2000, there has to be the 
number 32 in that location. The display-list also is at a different 
location then. It starts at 15392 instead of 39968. 
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Useful commands 
for programming 
games 

Graphics^ommand^ 


GRAPHICS n 
SETCOLOR l,m,n 
COLOR n 
PLOT x,y 
DRAWTO x,y 

Sound commands 


SOUND v,u,t,l (4 independent channels) 

Additional commands 


Changing the hardware registers by PEEK and POKE 

Important Notice 

The programs in this book were developed and tested on the ATARI 800/48K RAM. 
If you want to run the programs on other machines, please check, if there is enough 
memory. 

Some programs for example transfer the character set to hex 4000. The ATARI 400/ 
16K has no RAM in this area. So you have to make the corresponding adjustments. 

If you put the character set into S 2000 = 8192 dec. you can also use a 16K machine. 
Don' t forget to set the boundary of the character set at location 756 dec. If you use 
S 2000, location 756 must be 32 dec. 

Please check each program and change the appropriate locations. 

Colors may be different on different ATARI computers (PAL-version in Europe, NTSC 
in the US etc.). Maybe changes also have to be made , if you use the new ATARI GTIA 






Drawing figures on 
the screen 


I. Drawing a House 

Our first elementary example demonstrates how to draw a house 
on the scrren by using the PLOT and DRAWTO commands. These 
two commands define screen locations by numbers appended to 
the commands. For example: PLOT 20,30 

Screen locations: 

x 

0,0 


PLOT x,y 


The maximum numbers for x and y depend on the graphics mode 
that is selected. 

Now let's draw that house. 

Most people know how to draw a house with one line: 
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The following program shows how to do that by using the PLOT 
and DRAWTO commands. 

10 GRAPHICS 7 

20 COLOR 1 

30 PLOT 50,GO 

40 DRAWTO 50,20 

45 FOR X=1 TO 2001 NEXT X 

50 DRAWTO 100,20 

55 FOR X = 1 TO 200 NEXT X 

GO DRAWTO 100,60 

65 FOR X=1 TO 200ZNEXT X 

70 DRAWTO 50,GO 

75 FOR X=1 TO 2001 NEXT X 

80 DRAWTO 100,20 

85 FOR X=1 TO 200:NEXT X 

90 DRAWTO 75,0 

95 FOR X=1 TO 200:NEXT X 

100 DRAWTO 50,20 

105 FOR X=1 TO 200:NEXT X 

110 DRAWTO 100,60 

2. Drawing a Stick Figure 

To draw a stick figure or anything else that can be moved around 
the screen, the PLOT and DRAWTO commands are not very 
suitable. The ATARI computers have a very powerful feature to 
do just that. It's called “player-missile''graphics. 

This feature offers the following possibilities: 

a) we can define four different images (called players) with four 
different colors 

b) with different sizes 

c) we can have single or double line resolution 

d) each player can have a missile 

e) the horizontal position of each player and missile may easily 
be changed by changing only its position register 

Since this technique offers many possibilities, the process of 
turning on the player-missile graphics is more difficult than 
drawing something on the screen by the use of PLOT and DRAW¬ 
TO: 
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a) first we have to find a location in memory to store our image; 
this is done by the following command: 

I = PEEK (106)—8: POKE 54279,1 
Location 54279 now contains the number of 1/4K blocks 
from address 0 to the beginning of our player-missile area. 

Now we can calculate our player-missile base address by the 
following command: 

PMBAS = I * 256 

b) after we have found our player-missile area, we prepare this 
memory area. What we see on the screen starts 1/2 k after 
PMBAS and is 128 bytes long. First we want to clear this area, 
so that there is nothing in it we don't want. This is done by 
the following line: 

FORX=PMBAS+512 TO PMBAS+640: POKE X,0: NEXT X 


Now our PM-area is filled with zeros; that means all dots are 
turned off. To create a figure we will now turn on some of the 
dots. Let's create a little man that looks like: 
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f) now we want to position our figure on the screen. The vertical 
position (y-position) is defined by the position in memory; the 
horizontal position (x-position) is defined by the contents of 
the position register for that player which is at location 53248 
for player 1. 

Let's try: 

X = 100 : Y = 70 

d) The next step is to define color and luminance of our player. 
The location for that is 704 (player 1). 

Let's try: 

POKE 704,90 

e) now we define the resolution of our player and enable the PM- 
graphics; this is done by: 

POKE 559,46 (double line resolution) 

POKE 53277,3 

But now it is time to see some action on the screen. Let's type 
in the following program and see what happens on the screen: 

100 I = PEEK(1OG)-8 
110 POKE 54279,1 
120 PMBA6=I*25G 

130 FOR 0 = PMBAS+512 TO PMBAS+640 
140 POKE 0,0 
150 NEXT 0 

ieo x=ioo:y=7o 

170 POKE 704,90:P0KE 559,4S:P0KE 53277,3 
180 POKE 53248,X 
190 FOR 0=0 TO 8 
200 READ P 

210 POKE PMBAS+512+Y+Q,P 
220 NEXT 0 

230 DATA 12,12,8,83,72,136,20,34,65 

When you RUN the program you should see a little man on the 
screen. 

Let's see how we can control him. 

First we will change his horizontal position by changing the value 
in his position register. 
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POKE 53248,150 

should move him to the right. 

Now we change his size, which is done by: 

POKE 53256,1 
or 

POKE 53256,3 

Then we can change his color by: 

POKE 704,60 
or 

POKE 704,24 (for example) 

We can also control the "priority" of our player. That means if he 
overlays with a part of the playfield, we can define whether our 
player should be displayed in the foreground or in the background 
of the playfield. 

Let's use the house we made earlier and move our player around 
that house with different priorities. Type in the following listing 
and see what happens. (The house is changed a little bit, to show 
the effect of priority better (see lines 300—330). 

90 GRAPHICS 7:COLOR 1 
100 I = PEEK(1OS)-8 
110 POKE 54279,1 
120 PMBAS=I#256 

130 FOR G=PMBAS+512 TO PMBAS+G40 
140 POKE 0,0 
150 NEXT G 
ISO x=iso:y=70 

170 POKE 704,154:POKE 559,46:POKE 52277,3 
180 POKE 53248,X 
190 FOR 0=0 TO 8 
200 READ P 

210 POKE PMBAS+512+Y+G,P 
220 NEXT G 

230 DATA 12,12,8,63,72,136,20,34v65 
240 POKE 53256,1 
250 PLOT 50,60 

260 DRAWTO 50,20:DRAWT0 100,20 
270 DRAWTO 100,60:DRAWTO 50,60 
280 DRAWTO 100,20:DRAWTO 75,0 
290 DRAWTO 50,20.‘DRAWTO 100,60 
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300 FOR 0=1 TO 49 

310 PLOT 50+0,20 

320 DRAWTO 50+0,00 

330 NEXT 0 

340 POKE 023,8 

350 X = X+i:iF XMGO THEN 370 

300 POKE 53248,X:GOTO 350 

370 POKE 023,0 

380 X = X-i:iF X<70 THEN 340 

390 POKE 53248,X:GOTO 380 

You should see our man moving around the house. Moving from 
right to left the player has priority over the house (playfield). 
Moving from left to right the playfield has a higher-priority and 
the player seems to be behind the house. The change of priority 
ranking is done in lines 340 and 370. (Memory location 623 = 
priority control register). 
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Movements in BASIC 


Movements on the screen 

In the above examples we could see how easy it is to program hori¬ 
zontal movements of our player by only changing the contents of 
the position register. 

But how about vertical movements? 

As mentioned earlier the vertical position of our player is defined 
by the memory location of the bit pattern of our player. That 
means that we have to "shovel" our bit pattern to another 
memory location if we want to move our player in a vertical 
direction. (Movement up means lower, movement down means 
higher memory location). 

For example, a movement two lines down looks like this: 



The following program shows this process of "shoveling". The 
for-next-loop in lines 245 to 247 takes the bottom line of our 
player and writes it into the line below. Then the line above is 
carried one line down and so on. The last step is to take the line 
above our earlier player (which contains only zeros) and write it 
on the top line of our earlier player. The movement is now 
finished. 
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90 GRAPHICS 7:C0L0R 1 
100 I=PEEK(106)-B 
110 POKE 54279,1 
120 PMBAS=I»256 

130 FOR G=PMBAS+512 TO PMBAS+640 
140 POKE G » 0 
150 NEXT Q 
ISO x=iso:y=7o 

170 POKE 704,1541 POKE 559,4GIPOKE 53277,3 
180 POKE 53248,X 
190 FOR Q=0 TO 8 
200 READ P 

210 POKE PMBAS+512+Y+Q,P 
220 NEXT G 

230 DATA 12,12,8,63,72,136,20,34,65 
240 POKE 53256,1 

245 FOR G=9 TO 0 STEP -1 

246 POKE PMBAS+512+Y+Q,PEEK(PMBAS+511+Y+Q> 

247 FOR 2=1 TO lOOINEXT ZINEXT Q 

248 Y=Y+i 

249 STOP 

For a movement upwards we have to begin at the top of our 
player. 

For an upwards movement change the following lines in the above 
program: 

245 FOR Q=0 TO 9 

246 POKE PMBAS+511+Y+Q,PEEK(PMBAS+512+Y+G) 

247 NEXT G 

248 Y=Y-1 

249 GOTO 245 

As you can see in this example the movement in a vertical 
direction is much slower than the one in a horizontal direction, 
even without a delay loop in line 247. 
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Movements in 
Machine language 


For that reason we will show how to speed up vertical movements 
by using machine language routines for this job. It is more impor¬ 
tant here to be able to use these machine language routines than to 
understand them. The machine language routines do the same as 
the BASIC statements used earlier except they do it much faster. 
We will enter the machine language routine in a subroutine. Type 
in and RUN the following program: 


too 
110 
120 
130 
140 
150 
1 GO 
170 
ISO 
190 
200 
210 
220 
230 
240 
250 
2B0 
270 
280 
290 
300 
310 
320 
330 
340 
350 


I= PEEK(106)-8 
POKE 54279,1 
PMBAS=I*258 

FOR 0 = PM3AS+512 TO PMBAS+640 
POKE 0,0 
NEXT 0 

x=ibo:y=ioo 

POKE 704,54:POKE 559,46 I POKE 53277,3 
POKE 53248,X 
FOR 0=0 TO 8 
READ P 

POKE PMBAS+512+Y+G,P 
NEXT 0 

DATA 12,12,8,83,72,138,20,34,85 

POKE 53258,1 

GOSUB 1000 

GOSUB 1100 

FOR 0=1 TO 80 

B=USR(UP,PMBAS+511+Y):Y=Y-1 
NEXT 0 

FOR 0-1 TO 120 A similar program was 

X = x-1 :POKE 53248,X published in COMPUTE 4/81. 

NEXT 0 

FOR 0=1 TO 80 

B = USR(DOWN,PMBAS+51 1+Y) IY = Y+1 
NEXT 0 
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3G0 FOR Q=1 TO 120 
370 X=X+i:POKE 53248 ,X 
380 NEXT 8 
390 GOTO 270 

1000 DIM UPC0DE$(21):UP=ADR(UPCODE*) 

1010 FOR I=UP TO UP+20 
1020 READ BIPOKE I,B 
1030 NEXT I I RETURN 

1040 DATA 104,104,133,204,104,133,203 

1050 DATA 180,1,177,203,138,145,203 

1060 DATA 200,200,192,11,208,245,98 

1100 DIM D0WNC0DE$(21):DOWN=ADR(DOWNCODE$) 

1110 FOR I=DOWN TO D0WN+20 

1120 READ B:POKE I,B 

1130 NEXT I:RETURN 

1140 DATA 104,104,133,204,104,133,203 
1150 DATA 180,10,177,203,200,145,203 
1180 DATA 138,138,192,255,208,245,98 
This program moves our player up and left and down and right 
through the listing of the program. What' s new here is the fact 
that vertical and horizontal movements happen with about the 
same speed. 

The subroutine in lines 1000—1060 writes a machine language 
routine for upward movements into memory which can be 
executed directly by the microprocessor. The instructions are 
stored in the DATA-statements in lines 1040, 1050, 1060. The 
subroutine in lines 1100—1160 does the same for downward 
movements. 

Those subroutines are called in lines 280 (upward movement) 
and line 340 (downward movement). 

You can use these machine language routines for any image that's 
9 lines high and also if you use double line resolution (which is 
selected in line 170 in this example by: POKE 559,46). 

Alternating Shapes 

So far we have learned how to draw a player and move it around 
the screen. But the player seems to have no movement in itself. 
In this chapter we will try to change the shape of the player when 
it moves. This can be done by using two different shapes and, 
for example, writing them alternately into the player-missile 
area. 
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100 DIM P$<54),V$(27>,D*<3) 

110 FOR 1=1 TO 18 
120 READ D$ 

130 P$(3*I-2,3*I)=D$ 

140 NEXT I 

150 GRAPHICS 18 l SETCOLGR 4,7,2 
1BO X=50:Y=60 
170 POKE 559,4B 

180 I = PEEK(106)-8:POKE 54279,1 

190 PB=25G*I 

200 POKE 53277,3 

210 FOR I = PB+512 TO PB+G40 

220 POKE 1,0 

230 NEXT I 

240 POKE 704,22 

250 POKE 53248,X 

255 POKE 5325G,1 

2G0 C=C+1 

270 IF 03 THEN C=1 
280 ON C GOTO 290,300,290 
290 0$=P$(1,27)IGOTO 310 
300 0$= P$(28,54) 

310 FOR 1=1 TO 9 

320 POKE PB+512+Y+I,VAL<0$<3*1-2,3*1)) 

330 NEXT I 

340 X=X+2:P0KE 53248,X 
350 IF X>190 THEN 350 
360 GOTO 2G0 

400 DATA 012,012,008,063,072,136,020,034,065 
410 DATA 012,012,008,028,042,073,020,020,020 

If you RUN this program you should see that there are two 
alternating shapes written into the player-missile area. In addition, 
the position register is changed so it looks like our player is 
running from left to right across the screen. 

Let's have a closer look at that program. 

In lines 110—140 the data for both players are read into a string 
(PS). Lines 260—300 select alternately the lower and upper sub¬ 
string of PS In lines 310—330 this substring is converted back to a 
number and written into the player-missile area. Line 340 changes 
the position register. 
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Movements of 
Missiles 


Now that we know how to create and move players on the screen, 
it is time to use the missile as well. The next example shows the 
use of player 0 and missile 0. Player and missile use the same color 
register but different position registers. Consequently, they can 
be moved independently. The location in memory for the missiles 
is PMBAS+384 (if you use double line resolution). This is for all 
four missiles together which means that there are only two bits in 
a row per missile which can be turned on or off. We turn on only 
one bit which is done in line 335 of the following listing. You 
will note that the location is not PB+384+Y but four more; the 
reason is that we want the bullet to come out of the hand of our 
little man and not out of his head. 

100 DIM P$(27),D$(3) 

110 FOR 1=1 TO 9 
120 READ D$ 

130 P*(3*I-2,3»I>=D$ 

140 NEXT I 

150 GRAPHICS 1S:SETC0L0R 4,7,2 

iso x=so:y=go 

170 POKE 559,4S 

ISO I = PEEK(1 OS)-B:POKE 54279,1 

190 PB=25G*I 

200 POKE 53277,3 

210 FOR I= PB + 512 TO PB + S40 

220 POKE 1,0 

230 NEXT I 

240 POKE 704,22 

250 POKE 53248,X 

2G0 POKE 53256,1 

310 FOR 1=1 TO 9 

320 POKE PB+512+Y+I,0AL(P$(3*I-2,3*I)) 

330 NEXT I 

335 POKE PB+388+Y,1 
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340 X=X+i:P0KE 53252,X 
350 IF X>190 THEN X = 55 
360 GOTO 340 

400 DATA 012,012,008,063,072,136,020,034,065 
The next step is to expand the example to two players and two 
missiles. Try the following: 

100 I=PEEK(106)-8:P0KE 54279,1 
110 PB=256*I 

120 X1=50:Y1=60:X2=180:Y2=60 
130 FOR G = PB+384 TO PB+76B 
140 POKE Gt,0 
150 NEXT Q 

160 GRAPHICS 181SETCOLOR 4,7,2 

170 POKE 559,46 

180 POKE 53277,3 

190 POKE 704,22!POKE 705,90 

200 POKE 53248,XI:POKE 53249,X2 

210 POKE 53256,IIPOKE 53257,1 

220 FOR G=1 TO 9 

230 READ P 

240 POKE PB+512+Y1+G,P 
250 NEXT G 
260 FOR Q=1 TO 9 
270 READ P 

280 POKE PB+640+Y2+G,P 
290 NEXT Q 

300 POKE PB+384+4+Y1,5 
310 FOR Q=1 TO 150 

320 POKE 53252,Xl+GIPOKE 53253,X2-G 
330 NEXT G 
340 GOTO 310 

400 DATA 12,12,8,63,72,136,20,34,65 
410 DATA 12,12,8,28,42,73,20,20,20 
This program shows two players shooting at each other. If you 
watch that program you probably will miss the determination 
whether a player is hit by a missile. 


13 



Overlapping Detection 

(Collision Detection) 


To determine overlappings between missiles, players and playfield, 
the ATARI computer has 16 registers that indicate collisions. The 
register that indicates collisions between missile 0 and player is at 
address 53256 (for details about hardware registers see the 
appendix). 

Once a collision has occured, the indication remains in that 
collision register until we write something into a register that is 
called “collision clear “ (address 53278). 

Change the following lines in the program and watch the display 
of the contents of the collision register. 

1GO GRAPHICS 8SETCQLOR 4,7,2 
320 POKE 53252,Xl+Q 

330 ? PEEK (5325G) POKE 53278,0: NEXT Q 

You should see a "0" while missile 0 is between the two players, 
a "2" when player 1 is hit and a "1" when missile 0 comes out of 
player 0 (left player). 

Now that we know when the other player has been hit, we can 
create some kind of an "explosion routine". That means we have 
to change the shape of the player that was hit. The following 
sample shows how this can be done. 

100 I=PEEK(10G)-8:P0KE 54279,1 
110 PB=256*I 

120 xi=5o:yi=go:x2=i8o:y2=go 

130 FOR G = PB + 384 TO PB + 768 
140 POKE 0,0 
150 NEXT 0 

1 GO GRAPHICS 18SETCOLOR 4,7,2 
170 POKE 559,4G 
180 POKE 53277,3 
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ISO POKE 704, 22 :POKE 705,90 
200 POKE 53248,XI:POKE 53249,X2 
210 POKE 53258,I!POKE 53257,1 
220 FOR G=1 TO 9 
230 READ P 

240 POKE PB+512+Y1+Q,P 
250 NEXT G 
280 FOR Q= 1 TO 9 
270 READ P 

280 POKE PB+840+Y2+Q,P 
290 NEXT G 

300 POKE PB+384+4+Y1,5 
310 FOR Q=1 TO 150 
320 POKE 53252,Xl+Q 

330 IF PEEK(53256)=2 THEN GOSUB 500!RESTORE 

:goto 220 

335 POKE 53278,0 
340 NEXT G 

350 RESTORE IGOTO 220 

400 DATA 12,12,8,83,72,138,20,34,85 

410 DATA 12,12,8,28,42,73,20,20,20 

500 FOR Q = 20 TO 9 STEP -l.'POKE 705,10#Q I NEXT G 

505 POKE 53252,1 

510 FOR Q=1 TO 9 

520 POKE PB+S40+Y2+Q,0 

530 NEXT G 

540 POKE PB+B40+Y2+8,24 
550 POKE PB+G40+Y2+9,255 
580 POKE 53278,0 
570 FOR Q=1 TO 10001 NEXT Q 
580 RETURN 


This program is similar to the one before. Line 330 checks the 
collision register. If a collision is detected, the program branches 
to the subroutine in lines 500—580. Line 335 clears the collision 
registers. Line 350 is necessary in case the collision is not detected 
which happens sometimes because of the slowness of BASIC. 
Line 500 changes the color of the player very quickly which 
makes him shake. 

Line 505 puts the bullet back. Lines 510—530 erase the player. 
Lines 540 and 550 create a new player (prone). Line 560 clears 
the collision registers. Line 570 is a delay loop. 
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Sound features 


In the chapters we have discussed so far you probably missed one 
feature of the ATARI computers and that is SOUND. 

The ATARI computers have four independent channels to 
generate sound and noise. For each channel you can define the 
frequency, the kind of sound (noise or tone) and the volume. 

The command looks like this: 

SOUND V, N,T, L 


where V is voice, N is note, T is tone and L is loudness. 

The kind of sound most often needed in games is a shot. 

If you type in: SOUND 0, 5, 0, 8 

you will hear a noise that may be used for a flying jet. 

If we manipulate the volume of that noise we can create a shot, 
a steam engine or a noise similar to the one at the beach. It is 
easy to change shot to an explosion, just change the delay in line 
40. 


10 REM SHOT 

20 FOR X = 15 TO 0 STEP -1 
30 SOUND 0,5,0,X 
40 FOR Q=1 TO 3:NEXT Q 
50 NEXT X 

60 FOR <2=1 TO 500: NEXT Q 
70 GOTO 10 


10 REM STEAM LOCOMOTIVE 
20 FOR X=15 TO 0 STEP -1 
30 SOUND 0,2,0,X 
40 NEXT X 

50 FOR Q=1 TO 30:NEXT Q 
60 GOTO 10 
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10 REM OCEAN 
20 FOR X=0 TO 15 
30 SOUND 0,2,0,X 
40 FOR Q=1 TO 70:NEXT Q 
50 NEXT X 

60 FOR X=15 TO 0 STEP -1 
70 SOUND 0,2,0,X 
80 FOR Q=1 TO 50:NEXT Q 
90 NEXT X 
100 GOTO 20 

To discover the sound you need for your own game you can use 
the following program: 

10 REM SOUNDGENERATOR 
20 FOR N=0 TO 255 STEP 5 
30 FOR T=0 TO 7 
40 FOR L=0 TO 15 

50 PRINT "N=" ; N; " ";"T=":T5 M ";"L=";L 

60 SOUND 0,N,T,L 
70 NEXT L 
80 NEXT T 
90 NEXT N 

If you like a sound generated by the above program press BREAK. 
The sound will stay until you enter CONT to continue with the 
program. To create more complex sounds you have to use two, 
three or four channels simultaneously. 
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Programming the 
Joystick 


Another feature of the ATARI computers are the four joystick 
connectors. Connect a joystick to the left connector and run the 
following program: 

10 PRINT STICK(O) 

20 GOTO 10 

You will get the following values, depending on the position of 
your joystick: 
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10 PRINT STRIG(O) 

20 GOTO 10 

you will get a "1" if the joystick is not being used and a "0" if 
you press the red trigger button on your joystick. 


18 



Backgammon 


Backgammon 

Backgammon is a two-player game in which opponents try to 
bring their figures home as quickly as possible. The winner is the 
one who first removes all his figures from the playing field. On the 
lower left corner the computer shows the dice points he threw. 

A player must move any of his figures the same number of 
“points" as is shown on either of the dice. Then he must again 
move a figure (which may be the same figure again) the same 
number as the second die. When a player moves, he may not 
finally land on a point occupied by two or more of his opponent's 
figures. 

If there is a "double" (both dice are the same) you may move four 
times. 

If a figure is left alone on any "point" it is a "blot". The opponent 
may "hit" the "blot" by moving his figure onto this field if his 
dice roll permits. The figure which has been "hit" is moved back 
on to the "bar". The figures on the "bar" re-enter the playing 
field again before any other of that player's figures is moved. To 
re-enter, a player must roll a number 1 thru 6 not occupied by two 
or more of his opponents figures. If you want to bring a figure 
"home", all your other figures must be on the final six fields. If 
you can't move, then hit only "0" after the computer's question 
"from". 

Load the program and start it with "RUN". The computer dis¬ 
plays the name of the game. To start, press RETURN. The playing 
field will be plotted to the screen and the computer asks who 
wants to begin, (red = 1 — blue = 2). Enter the number with RE¬ 
TURN. The computer will throw the dice and display the points 
in the color of the player who has the next move. 
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Red moves from the higher to the lower numbers, blue vice versa. 
Now enter from where and to where you choose to move and then 
enter RETURN. If a move is impossible, the computer will print 
"sorry, no move is possible" and wait for RETURN. 

If some figures are on the bar, the computer will print "from bar 
to" and wait for the input. 

To bring any figure home, red must enter "to 0" and blue " to 
25". 


10 DIM A(26),B(26),A$ <1) 

20 GRAPHICS 2:? #6:7 #6;” BaCkGaMmon" 

30 POKE 710,152:INPUT A$ 

1000 GRAPHICS 7:POKE 752,1 

1010 SETCOLOR 0,3,10:SETCOLOR 1,8,12:SETCOL 
OR 2,12,3 

1060 COLOR 3:PLOT 20,70:DRAWT0 20,10sDRAWT0 
159,10:DRAWTO 159,70:DRAWTO 20,70 
1070 PLOT 21,69:DRAWTO 21,11:DRAWT0 158,11: 
DRAWTO 158,69:DRAWTO 21,69 

1072 PLOT 6,40:DRAWTO 20,40:PLOT 0,39:DRAWT 
0 20,39 

1074 PLOT 0,69:DRAWTO 20,69:DRAWTO 20,79:PL 
OT 0,70:DRAWTO 21,70:DRAWTO 21,79 
1080 C=0: Z = 10: GOSUB 4000 
1090 C=1:Z=45:GOSUB 4000 

1140 Z=0:X=37:COLOR 2:GOSUB 4120:X=43:GOSUB 
4130 

1141 X=59:GOSUB 4120:X=65:GOSUB 4110 
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1142 X=81:GOSUB 4110:X=87:GOSUB 4190 

1143 X=103:GOSUB 4110:X=109:GOSUB 4170 

1144 X=125:GOSUB 4110:X=131:GOSUB 4150 

1145 X=147:GOSUB 4110:X=153:GOSUB 4130 
1150 X=26:COLOR 1:GOSUB 4120:X=32:GOSUB 414 
0 

1160 X=48:GOSUB 4120:X=54:GOSUB 4120 
1170 X=70:GOSUB 4120:X=76:GOSUB 4100 
1190 X=92:GOSUB 4110:X=98:GOSUB 4180 
1210 X=114:GOSUB 4110:X=120:GOSUB 4160 
1230 X=136:GOSUB 4110:X=142:GOSUB 4140 

1270 Z=73:X=38:GOSUB 4120 

1271 X=60:GOSUB 4140:X=82:GOSUB 4160:X=104: 
GOSUB 4180 

1274 X=124:GOSUB 4110:X=130:GOSUB 4100 

1275 X=147:GOSUB 4110:X=153:GOSUB 4120 
1279 COLOR 2:X=27:GOSUB 4110:X=49:GOSUB 413 
0:X=71:GOSUB 4150:X=93:GOSUB 4170:X=115:GOS 
UB 4190 

1360 X=135:GOSUB 4110:X=141:GOSUB 4110 

1380 FOR M=0 TO 26:A<M>=0:B<M>=0:NEXT M 

1390 B (1) =2: B < 12) =5: B (17) =3: B (19) =5: A (24) =2 

: A (13) =5: A (8) =3: A (6) =5 

1400 X=30:Z=13:COLOR 1:GOSUB 4200 

1410 Z=17:GOSUB 4200 

1420 X=151:FOR Z=13 TO 29 STEP 4 

1425 GOSUB 4200:NEXT Z 

1430 X=85:FOR Z=50 TO 66 STEP 4 

1435 GOSUB 4200:NEXT Z 

1440 X=107:FOR Z=58 TO 66 STEP 4 

1445 GOSUB 4200:NEXT Z 

1450 COLOR 2 

1460 X=151:FOR Z=50 TO 66 STEP 4 

1465 GOSUB 4200:NEXT Z 

1470 X=85:FOR Z=13 TO 29 STEP 4 

1475 GOSUB 4200:NEXT Z 

1480 X=107:FOR Z=13 TO 21 STEP 4 

1485 GOSUB 4200:NEXT Z 

1490 X=30:FOR Z=62 TO 66 STEP 4 

1495 GOSUB 4200:NEXT Z 

1500 X=10:Z=20:GOSUB 4100 

1505 Z=53:COLOR 1:GOSUB 4100 

1510 TRAP 1510:? "Player ’RED’ =1: Player ’ 
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BLUE’ =2"!INPUT W:IF W=2 THEN 2500 
1550 A0=0:B25=0 

1600 ? " ]■ 11 : N1 =0: B=4: S= 1: BOSUB 5000 

1605 GOSUB 2000 

1610 IF C1=C2 THEN 1700 

1615 G=2:E=0 

1690 A0=A0+A(0):A(0)=0 

1700 GOSUB 6000 

1710 E=E1+E2:IF E>0 THEN 1750 

1720 ? "I’m sorry but you can’t move!":INF‘U 

T A$:GOTO 2500 

1750 GOSUB 3000 

1755 IF Nl=l THEN 2500 

1760 GOSUB 3200 

1770 IF Bl=l THEN 1750 

1772 GOSUB 3400:GOSUB 10000 

1775 G=G-1:IF G=0 THEN 2500 

1780 GOTO 1690 

2000 IF A <0)+A0=15 THEN 11000 
2010 IF B25+B(25)=15 THEN 11100 
2020 RETURN 

2500 ? "3-":Nl=0:G=4:S=2:GOSUB 5000 
2505 GOSUB 2000 
2510 IF C1=C2 THEN 2600 
2515 G=2:E=0 

2590 B25=B(25)+B25:B(25)=0 

2600 GOSUB 6100 

2610 E=E1+E2:IF E>0 THEN 2650 

2620 ? "I’m sorry but you can’t movei":INF'U 

T A$:GOTO 1600 

2647 GOTO 1600 

2650 GOSUB 3000 

2655 IF Nl=l THEN 1600 

2660 GOSUB 9200 

2670 IF Bl=l THEN 2650 

2672 GOSUB 9400:GOSUB 10000 

2675 G-G-l:IF G=0 THEN 1600 

2680 GOTO 2590 

3000 IF S=2 THEN 9000 

3001 IF AA>0 THEN 3090 

3003 TRAP 3003:? "from ",:INPUT AlsIF A1=0 
THEN 12000 

3010 TRAP 3010:? "to ",:INPUT A2:F1=0:F2=0 
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3017 IF S=2 THEN F=A2-A1 
3020 IF S=1 THEN F=A1-A2 
3030 IF F=C1 THEN 3060 
3040 IF F=C2 THEN 3080 

3050 ? "Sorry, but you can’t move this way" 

:GOTO 3000 

3060 Fl=l:RETURN 

3080 F2=l:RETURN 

3090 A1=25:? "From Bank ";:GOTO 3010 

3200 IF AA>0 THEN 3203 

3201 IF A(A1)=0 THEN 3215 
3203 IF A2=0 THEN 3270 
3205 IF B(A2)=0 THEN 3230 
3210 IF B(A2)=1 THEN 3220 

3215 ? "Sorry, but you can’t move this way" 
:B1=1:RETURN 

3220 B <A2)=0:BB=BB+1:X = 10:Z=20:GOSUB 4300 

3225 COLOR 2:ON BB GOSUB 4110,4120,4130,414 

0,4150,4160,4170,4180,4190 

3230 IF A1=25 THEN 3245 

3232 A(A1)=A(Al)-lsA(A2)=A(A2)+1 

3240 B1=0:RETURN 

3245 X=10:Z=53:COLOR S:GOSUB 4300 
3247 AA=AA-1:A(A2)=A(A2)+1 

3250 COLOR 1:ON AA+1 GOSUB 4100,4110,4120,4 

130,4140,4150,4160,4170,4180 

3260 GOTO 3240 

3270 IF L=0 THEN 3205 

3275 GOTO 3215 

3400 IF A(A1)>5 THEN 3450 

3402 IF A1=25 THEN 3450 

3405 A=A1:GOSUB 8000 

3410 A=A(A1)+1:IF Al>12 THEN GOTO 3480 

3415 A=A(A1)+1:IF A1C13 THEN GOSUB 8300 

3420 COLOR 0:GOSUB 4200 

3450 IF A < A2)>6 THEN 3475 

3452 IF A2=0 THEN RETURN 

3455 A=A2:GOSUB 8000 

3460 A=A(A2):IF A2>12 THEN GOTO 3490 
3465 A=A(A2):IF A2C13 THEN GOSUB 8300 
3470 COLOR 1:GOSUB 4200:RETURN 
3480 GOSUB 8200:GOTO 3420 
3490 GOSUB 8200:GOTO 3470 
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4000 FOR X=30 TO 151 STEP UtC-C+liIF C=3 T 
HEN C=1 

4010 COLOR C:PLOT X,Z:DRAWTO X,Z+25:PL0T X- 

1,Z:DRAWTO X-l,Z+25:NEXT X:RETURN 

4100 PLOT X,Z:DRAWTO X+3,Z:DRAWTO X+3,Z+6:D 

RAWTO X,Z+6:DRAWTO X,Z:RETURN 

4110 PLOT X+2,Z:DRAWTO X+2,Z+6:RETURN 

4120 PLOT X,Z:DRAWTO X+3,Z:DRAWTO X+3,Z+3:D 

RAWTO X,Z+3sDRAWTO X,Z+6:DRAWTO X+3,Z+6:RET 

URN 

4130 PLOT X,Z:DRAWTO X+3,Z:DRAWTO X+3,Z+6:D 
RAWTO X,Z+6:PLOT X,Z+3:DRAWTO X+3,Z+3:RETUR 
N 

4140 PLOT X+3,Z:DRAWTO X+3,Z+6:PLOT X,Z:DRA 

WTO X,Z+3:DRAWTO X+3,Z+3:RETURN 

4150 PLOT X+3,Z:DRAWTO X,Z:DRAWTO X,Z+3:DRA 

WTO X+3,Z+3:DRAWTO X+3,Z+6:DRAWTO X,Z+6:RET 

URN 

4160 PLOT X+3,Z:DRAWTO X,Z:DRAWTO X,Z+6:DRA 
WTO X+3,Z+6sDRAWTO X+3,Z+3:DRAWTO X,Z+3:RET 
URN 

4170 PLOT X,Z:DRAWTO X+2,Z:DRAWT0 X+2,Z+6:R 
ETURN 

4180 PLOT X,Z:DRAWTO X+3,Z:DRAWTO X+3,Z+6:D 
RAWTO X,Z+6:DRAWTO X,Z:PLOT X+3,Z+3:DRAWTO 
X,Z+3:RETURN 

4190 PLOT X,Z+6:DRAWTO X+3,Z+6:DRAWTO X+3,Z 
:DRAWTO X,Z:DRAWTO X,Z+3:DRAWTO X+3,Z+3:RET 
URN 

4200 FOR M=Z TO Z+1:PL0T X-4,M:DRAWTO X-2,M 
:PLOT X+1,M:DRAWTO X+3,M:NEXT M:RETURN 
4300 COLOR O:FOR A=X TO X+4:PL0T A,Z:DRAWTO 
A,Z+6:NEXT A:RETURN 

4310 COLOR Os FOR Z=71 TO 79:PLOT 0,ZsDRAWTO 
19,Z:NEXT Z:RETURN 
4500 C=INT(RND<1> #6)+1:RETURN 
5000 GOSUB 4310 
5005 GOSUB 4500:Cl=C 
5010 GOSUB 4500:C2=C 
5020 X=1:Z=71:COLOR S 

5030 ON Cl GOSUB 4110,4120,4130,4140,4150,4 
160 

5040 X = 11s ON C2 GOSUB 4110,4120,4130,4140,4 
150,4160 
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5050 RETURN 

6000 L=1: N=A0+A(1) +A (2) +A (3) +A (4) +A (5) +A (6) 

:IF N=15 THEN L=0 

6005 E1=0:E2=0:IF AA>0 THEN 6999 

6010 FOR D=1 TO 24 

6020 IF A <D)>0 THEN GOSUB 7000 

6030 NEXT D:RETURN 

6100 L=24:N=B25+B(24)+B(23)+B(22)+B(21> +B(2 

0)+B(19):IF N=15 THEN L=25 

6105 El=Os E2=0:IF BB>0 THEN 7099 

6110 FOR D=1 TO 24 

6120 IF B(D)>0 THEN GOSUB 7100 

6130 NEXT D:RETURN 

6999 D=25 

7000 D1=D-C1: IF (D1XL THEN 7030 
7010 IF B(D1)>1 THEN 7030 

7020 El=l 

7030 D1=D—C2: IF (D1XL THEN RETURN 
7040 IF B(D1)>1 THEN RETURN 
7050 E2=l:RETURN 

7099 D=0 

7100 D1=D+C1:IF (D1)>L THEN 7130 
7105 IF D1>25 THEN 7130 

7110 IF A(D1)>1 THEN 7130 
7120 El—1 

7130 D1=D+C2:IF <D1)>L THEN RETURN 
7135 IF D1>25 THEN RETURN 
7140 IF A(D1)>1 THEN RETURN 
7150 E2=l:RETURN 

8000 IF A>20 THEN 8005 

8001 ON A GOTO 8010,8020,8030,8040,8050,806 
0,8070,8080,8090,8100,8110,8120,8120,8110,8 
100,8090,8080,8070,8060, 8050 

8005 A=A—20: ON A GOTO 8040,8030,8020,8010 

8010 X=30:RETURN 

8020 X=41:RETURN 

8030 X=52sRETURN 

8040 X=63:RETURN 

8050 X=74:RETURN 

8060 X=85:RETURN 

8070 X=96:RETURN 

8080 X=107:RETURN 

8090 X=118:RETURN 
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8100 X=129:RETURN 
8110 X=140:RETURN 
8120 X=151:RETURN 

8200 ON A 60T0 8210,8220,8230,8240,8250,826 
0 

8210 Z=13:RETURN 
8220 Z=17:RETURN 
8230 Z=21:RETURN 
8240 Z=25:RETURN 
8250 Z=29:RETURN 
8260 Z=33:RETURN 

8300 ON A GOTO 8310,8320,B330,8340,8350,836 
0 

8310 Z=66sRETURN 

8320 Z=62:RETURN 

8330 Z=58sRETURN 

8340 Z=54sRETURN 

8350 Z=50sRETURN 

8360 Z=46;RETURN 

9000 IF BEK 1 THEN 3003 

9010 A1=0:? " From Bank ";:GOTO 3010 

9200 IF BB>0 THEN 9203 

9201 IF B(A1)=0 THEN 9215 
9203 IF A2=25 THEN 9270 
9205 IF A(A2)=0 THEN 9230 
9210 IF A(A2)=1 THEN 9220 

9215 ? "Sorry, but you can't move this way" 
:Bl=l:RETURN 

9220 A(A2)=0:AA=AA+1:X=10sZ=53:GOSUB 4300 

9225 COLOR 1:ON AA GOSUB 4110,4120,4130,414 

04150,4160,4170,4180,4190 

9230 IF A1=0 THEN 9245 

9232 B <A1)=B(A1)-1:B(A2)=B <A2)+1 

9240 B1=0:RETURN 

9245 X=10:Z=20:COLOR S:GOSUB 4300 
9247 BB=BB-1:B(A2)=B(A2)+1 

9250 COLOR 2:ON BB+1 GOSUB 4100,4110,4120,4 

130,4140,4150,4160,4170,4180,4170,4180 

9260 GOTO 9240 

9270 IF L=25 THEN 9205 

9275 GOTO 9215 

9400 IF B(A1)>5 THEN 9450 

9402 IF A1=0 THEN 9450 
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9405 A=A1:GOSUB 8000 

9410 A=B(A1)+1:IF Al>12 THEN GOTO 9480 

9415 A=B(A1)+1:IF Al<13 THEN GOSUB 8300 

9420 COLOR OsGOSUB 4200 

9450 IF B < A2)>6 THEN 9475 

9452 IF A2=25 THEN RETURN 

9455 A=A2:GOSUB 8000 

9460 A=B(A2):IF A2>12 THEN GOTO 9490 
9465 A=B(A2):IF A2<13 THEN GOSUB 8300 
9470 COLOR 2sGOSUB 4200 
9475 RETURN 

9480 GOSUB 8200 s GOTO 9420 
9490 GOSUB 8200:GOTO 9470 
10000 IF C1=C2 THEN RETURN 
10010 IF F=C1 THEN Cl=50 
10020 IF F=C2 THEN C2=50 
10030 RETURN 

11000 ? "RED is the winner":END 
11100 ? "Blue is the winner":END 
12000 IF N=15 THEN 12100 
12010 ? "You have to move!"sGOTO 3003 
12100 Nl=l:RETURN 
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S MARTY 


SMARTY 

Load the program and start it with RUN. The computer displays 
the name of the game and asks you whether or not you need in¬ 
structions. Enter "Y" or "N" and Return. After reading the 
instructions, press START to begin the game. In case of "N" the 
computer will begin immediately. 

First the computer will ask how many positions you want to guess 
(3—10). Enter the number and the RETURN. 

After that the computer will ask how many characters you want 
(5 — 16). Enter the number and the RETURN. If you choose 
"5" then the possible characters are 0, 1,2, 3, 4, 5; if you choose 
"16" then the possible characters are 0, 1, 2...9, A, B, ...G. Each 
time the combination is N+1 characters (N being number you 
entered). 

Now the computer looks for a combination and you guess it. 
The characters are displayed on the left side of the graphics 
window. A wrong character cannot be deleted!! 

The computer checks for correct characters. For each character 
at the correct position the computer displays a green "X". For 
every other correct character at a wrong position a violet "X". 

10 DIM A(21),B(21>,D*<300>,C(10),CC(10>,D<2 
1) 

20 DIM A$(10),(10),C$ (1):AB=0s A(0)=0 
30 GRAPHICS 2:POKE 85,5:? #6;" SMARTY " 

42 FOR A=1 TO 20:A(A)=0:B(A)=0:D(A)=10:NEXT 
A:FOR A=1 TO 300:D$(A,A):NEXT A 

43 IF A(0)=0 THEN GOSUB 3000 

45 A(0)=0:POKE 84,8:? #6;"13-10! positions 
are possible" 

50 TRAP 50:INPUT A 

52 IF A<3 OR A>10 THEN 45 

55 POKE 84,8:? #6;"15-10! characters are 
possible" 

60 TRAP 60:INPUT B 
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62 IF B<5 OR B>16 THEN 55 

200 POKE 84,8:? #6; "I look -for a GOOD Com 
BlnaTIon " 

210 FOR C=1 TO A:D=INT(RND<0)#(B+l))sGOSUB 
220:A$(C,C)=C$:NEXT C:GOTO 290 

220 IF D=10 THEN C$="A" 

221 IF D=11 THEN C$="B" 

222 IF D=12 THEN C*="C" 

223 IF D=13 THEN C$="D" 

224 IF D=14 THEN C$="E" 

225 IF D=15 THEN C$="F M 

226 IF D=16 THEN C$="G" 

227 IF D=0 THEN C$="0" 

231 IF D=1 THEN C*="l" 

232 IF B=2 THEN C$="2" 

233 IF D=3 THEN C$="3 M 

234 IF D=4 THEN CS="4" 

235 IF D=5 THEN C$="5" 

236 IF D=6 THEN C$="6" 

237 IF D=7 THEN C*="7'' 

238 IF D=8 THEN C*="8" 

239 IF D=9 THEN C$="9" 

240 RETURN 

290 FOR C=1 TO 999:NEXT C 

295 GRAPHICS 1:SETCOLOR 2,2,2:SETCOLOR 0,2, 
10:POKE 752,1:POKE 54279,56:POKE 559,46:G0S 
UB 2000 

300 GOSUB 4100:D=0:AB=AB+1:FOR C=1 TO 181 S 
TEP 1O:D=D+1:POKE 84,D-1:POKE 85,10-A 

305 FOR CC=C TO C+A-l:D$(CC,CC)=D$(CC+10,CC 
+10):NEXT CC 

306 ? #6;D$(C,C+A—1);:GOSUB 310:NEXT C:GOTO 
350 

310 A(D> =A(D+l) :IF A(D)=0 THEN 320 
315 FOR E=1 TO A (D) : ? #6; NEXT E 

320 B(D)=B(D+l):IF B(D)=0 THEN 330 
325 FOR E=1 TO B(D):? #6 ;“k";:NEXT E 
330 D (D) =D (D+l) : IF D (D) =0 THEN. 340 
335 FOR E=1 TO D(D):? #6;“ ";:NEXT E 
340 RETURN 

350 POKE 84,19:POKE 85,10-A 

355 FOR C=1 TO 2*A;? #6;" ";:NEXT C 

358 POKE 84,19:POKE 85,10-AsGOSUB 4000 
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359 ? "Your Combination: ":? "pass ";AB 

360 FOR C=1 TO A:GOSUB 1000:? #6;C*;:B$(C,C 
)=C$:NEXT C 

370 POKE 764,255:? 

380 FOR C=1 TO 10:C(C)=0:CC(C)=0:NEXT C:A(2 
0 )= 0 : B (20 > =0 

390 FOR C=1 TO A:IF A*<C,C)=B$(C,C> THEN C< 

C)=1:A(20)=A < 20)+1 

400 NEXT C:FOR C=1 TO A 

405 IF C(.C)=1 THEN 430 

410 FOR CC=1 TO A:IF CC(CC>=1 THEN 420 
412 IF C(CC)=1 THEN 420 

415 IF A$<C,C)=B$<CC,CC) THEN B(20)=B(20)+l 
:CC(CC)=1:GOTO 430 
420 NEXT CC 
430 NEXT C 

440 FOR 0=1 TO A:D$(190+C)=B$(C):NEXT C 

441 D(20)=10-A(20)-B(20) 

442 D (21) =D <20) : A (21) =A (20) : B (21) =B (20) 

445 D=20:60SUB 310 

450 IF A(20)=A THEN 500 
460 GOTO 300 

500 ? :? :? :? "You -found the combination": 
? "You tried ";AB;" times":? "Press <START> 
for another game" 

510 ? "<SELECT> to end"; 

520 IF PEEK(53279)=6 THEN POKE 53277,4:POKE 
53248,0:RUN 

530 IF PEEK(53279)=5 THEN POKE 53277,4:POK 
E 53248,0:END 
540 GOTO 520 

999 END 

1000 POKE 764,255 

1010 IF PEEK(764)=50 THEN C$="0":RETURN 

1011 IF PEEK(764)=31 THEN C$="1":RETURN 

1012 IF PEEK(764)=30 THEN C$="2":RETURN 

1013 IF PEEK(764)=26 THEN C*="3":RETURN 

1014 IF PEEK(764)=24 THEN C$="4":RETURN 

1015 IF PEEK(764)=29 THEN C$="5":RETURN 

1016 IF PEEK(764)=27 THEN C$="6":RETURN 

1017 IF PEEK(764)=51 THEN C$="7":RETURN 

1018 IF PEEK(764)=53 THEN C$="8";RETURN 

1019 IF PEEK(764)=48 THEN C*="9":RETURN 
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1020 IF PEEK(764)=63 THEN C$="A": RETURN 

1021 IF PEEK(764)=21 THEN C$="B"s RETURN 

1022 IF PEEK(764)=18 THEN C$="C":RETURN 

1023 IF PEEK(764)=58 THEN C$="D":RETURN 

1024 IF PEEK(764)=42 THEN C$="E":RETURN 

1025 IF PEEK(764)=56 THEN C$="F":RETURN 

1026 IF PEEK(764)=61 THEN C$="G":RETURN 
1030 GOTO 1010 

2000 FOR E=14860 TO 14943 
2010 POKE E, 1:NEXT E 

2020 FOR E=14852 TO 14859:POKE E,0:NEXT E 
2030 FOR E=14944 TO 14972:POKE E,0:NEXT E 
2090 POKE 704,222:POKE 53256,2:POKE 53248,1 
21:POKE 53277,2:POKE 54279,56 
2100 RETURN 

3000 POKE 84,8:? #6;"DO YOU NEED INSTRUCTIO 
NS":? " ! Y-N !" 

3010 INPUT C$:IF C$="Y" THEN 3030 
3020 ? "]•" :POKE 84,8:? #6;" 

":RETURN 

3030 GRAPHICS 0:SETC0L0R 2,O,O:SETCOLOR 4,0 
,O:SETCOLOR 1,3,8 

3031 POKE 752, 1: J=6+PEEK(742)*256+PEEK(741) 

3032 A (0) =1: POKE J + 1,7:F'0KE 82, 2: POKE 752,0 
:POKE J+2,6 

3035 ? :? " MASTER mind ":? :? "I will 1 
ook -for a combination,":? "and you may gues 
5 it!" 

3040 ? "The combination consists o-f the":? 
"numbers 0-9 and the letters ABCDEFG." 

3050 ? "You select the difficulty by choosi 
ng":? "the numbers of positions and":? "cha 
racters" 

3070 ? "For any character at the correct":? 

"position I will set a green ’X’." 

3075 ? "For any correct character at a wron 
9 " 

3080 ? "position I will set a violet ! X’," 
3100 ? :? "Good luck!" 

3110 ? "Press <START> to begin." 

3120 IF PEEK(53279)=6 THEN 30 
3130 GOTO 3120 
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4000 POKE 54272,QC:POKE 53774,NQ:POKE 54286 
,MIsPOKE 53248,121:RETURN 

4100 MI=PEEK(54286):NGNPEEK(53774)s QOPEEK( 
54272):POKE 54286,0:POKE 53774,0:POKE 54272 
,0:POKE 53248,10:RETURN 
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BOMBER 


BOMBER 

Bomber is a game that demonstrates how to use the P/M graphics 
of your ATARI computer and how to simulate the flight of a 
bomb or projectile. 

The program uses players 0 to 3 and missiles 0 and 1. Player 0 is 
the bomber; player 1 the gun. The two other players are used to 
simulate the explosions of players 0 and 1. Missile 0 is the aircraft 
bomb; missile 1 the gun projectile. The players are defined the 
same way each time. First calculate the P/M base address and store 
it (line 40 and 50). Then set P/M address (line 60). Then decide 
on single line resolution (POKE 559,62) or double line resolution 
(POKE 559,46). Our program illustrated here demonstrates only 
double line resolution: single line resolution would cause some 
changes in the player start address, etc. 

With a POKE 53277,3 you enable P/M graphics. 

Now you can draw the player; lines 100 to 130 build player 0. 
Each player is eight bits wide: 


7 

T 

5 

4 

3 

2 

1 0 

Bit 

128 

64 

32 

16 

8 

4 

2 1 

del. value 


If you want to draw a player you must calculate the bytes you 
want to set for each line. 

(E. g., if you want to set the right two bytes of any line of the 
player, you only Poke the decimal value of 1 + 2 = 3 to the 
address where you want to store it). 

The missiles are two bits wide and all lie on the same line. 

Missile 
Bit 

del. value 
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To set the missile set only the bits of the missile. 

The simulation of the flight of the missiles follows physical for¬ 
mulas (see lines 1000 to 2200). The lines of the program are 
explained in REM statements. Please look at them. 


5 OPEN #1,4,0,"K;" 

10 GRAPHICS 3+16:SETCOLOR 0,3,5:SETCOLOR 4,B 
,2:REM BACKGROUNDCOLOR 

12 COLOR 1:PLOT 0,23:DRAWT0 39,23:REM DRAW G 
ROUND 

20 X=240:X1 = 120:Y1 = 100:VX=150:VO1=200:VY=0s G 

=9.81:Y=20:REM INITIALISATION 

40 J=PEEK(106)-8:REM P/M BASEADRESS 

50 POKE 54279,J:REM STORE P/M ADRESS 

60 PMBASE=256*J:REM PLAYERADDRESS 

70 POKE 559,46:REM DOUBLE LINE RESOLUTION 

80 POKE 53277,3:REM P/M ENABLE 

100 FOR I=PMBASE+512 TO PMBASE+640:POKE 1,0: 

NEXT I:REM CLEAR PLAYER 0 

110 RESTORE 130: FOR I=PMBASE+512+Y TO F'MBASE 

+517+Y:READ A:POKE I,A:NEXT I:REM THIS LOOP 

DRAWS PLAYER 0 

120 REM PLAYER 0 IN DATA 

130 DATA 1,1,3,63,255,126 

132 FOR I=PMBASE+640 TO PMBASE+76B:POKE 1,0: 
NEXT I:REM CLEAR PLAYER 1 

134 RESTORE 138: FOR I=F’MBASE+640+Yl TO F'MBAS 

E+647+Y1:READ A:POKE I,A:NEXT I:REM THIS LOO 

F' DRAWS PLAYER 1 

138 DATA 1,2,36,56,56,60,62,63 

140 POKE 53260,2:REM MISSILE SIZE 

142 FOR I=PMBASE+768 TO PMBASE+896:POKE 1,0: 

NEXT I:REM CLEAR PLAYER 2 

144 RESTORE 148: FOR I=F'MBASE+768+Yl TO F'MBAS 
E+774+Y1:READ A:POKE I,A:NEXT I:REM THIS LOO 
P DRAWS PLAYER 2 
148 DATA 16,40,0,101,74,32,8 

150 FOR I=F'MBASE+384 TO F'MBASE+510: POKE 1,0: 
NEXT I:REM CLEAR MISSILES <1+2);0NE MISSILE 
IS 8 BIT WIDE 
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160 POKE 704,88:REM PLAYER/MISSILE Os PINK 
165 POKE 705,197:REM PLAYER/MISSILE 1:GREEN 
167 POKE 706,210:REM PLAYER2:DARK 
169 POKE 707,200:REM PLAYER 3:YELLOW 
190 POKE 53278,15:FOR X-200 TO 44 STEP -2:P0 
KE 53248,X:REM ’53278’ := COLLISION CLEAR; L 
OOP: PLAYER MOVEMENT 

200 ST-STICK <0):Xl=Xl+3*<<ST=7> + <X1<200>):X1 
-Xl-3*((ST=11)+(XI>50)):REM CALCULATION OF N 
EW PLAYER 1 POSITION 

210 POKE 53249,XI:REM DRAW PLAYER AT NEW POS 
IT I ON 

220 IF PEEK <764) 0255 AND GUNOl THEN GET #1 
,W:W= <W-48)/8:VX1-V01*COS<W):VY1-V01*SIN<W>: 
T1=0:GUN-1:XP1=X1+6 

225 REM LINE 220 ASKS KEYBOARD WHETHER ANY K 
EY IS PRESSED DOWN 

230 IF GUN—1 THEN GOSUB 2000:REM MOVEMENT OF 
MISSILE 1 

240 IF BOMB-1 THEN GOSUB 1000:GOTO 260:REM M 
OVEMENT OF MISSILE 0 

250 IF RND <0X0.5 THEN BOMB-1:XP-X:T=0:Z-50: 
REM BOMB TO BE DROPPED ? 

260 NEXT X:GOSUB 5000:GOTO 190:REM AGAIN AND 
AGAIN 

302 IF 1=20 THEN POKE 53258,3 
1000 REM MISSILE 0 FIRED 

1005 TRAP 1200:REM IF MISSILE OUT OF RANGE T 
HEN G.1200 

1040 Z—Z-1:T—T+1:REM TIME INCREASED BY 1 
1150 Y0=G/2*T*T:Y0=<Y0/50)+Y+4:REM MATH ROUT 
INE TO CALCULATE YVECTOR OF FLIGHT OF MISSIL 
E 

1160 IF Y0>110 THEN BOMB-O:SOUND 0,0,0,0:G0S 
UB 3000:RETURN :REM REM MISSILE REACHED GROU 
ND 

1170 XM=<VX*T>/50:REM CALCULATION OF XVECTOR 
OF FLIGHT 

1180 POKE PMBASE+384+YH,0:POKE PMBASE+384+Y0 
,3:POKE 53252,XP-XM:SOUND 0,Z,10,14:YH-YO:RE 
M MISSILE FLIGHT 

1190 RETURN :REM END OF SUBRUTINE 
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1200 POKE PMBASE+3B4+Y0,O:B0MB=0:SOUND 0,0, 0 
,0s RETURN 

2000 REM MISSILE 1 FIRED 

2010 TRAP 2200s REM IF MISSILE IS OUT OF RANG 
E THEN G.2200 

2140 T1=T1+1:REM TIME INCREASED BY 1 
2150 Y1=-G/2*T1*T1+VY1*T1:Y1=ABS((Yl/20)“105 
):REM CALCULATION OF YVECTOR OF FLIGHT 
2160 IF Y1<10 OR Y1>120 THEN GUN=0:SOUND 1,0 
,0,0:RETURN :REM MISSILE OUT OF RANGE? 

2170 XM1=(VX1*T1>/20s REM CALCULATION OF XVEC 
TOR OF FLIGHT 

2180 POKE PMBA5E+3B4+YH1,0:POKE PMBASE+3B4+Y 
1,4:POKE 53253,XP1+XM1:YH1=Y1:SOUND 1,T1,8,1 
4:REM MISSILE FLY 

2190 GOSUB 3500s RETURN :REM END OF SUBROUTIN 
E 

2200 POKE PMBASE+384+Y1,0:GUN=0:SOUND 1,0,0, 
Os RETURN 

3000 IF PEEK (53256 ) 03 THEN RETURN : REM IF N 
O COLLISION THEN RETURN 

3005 SC0REB0MBER=SC0REB0MBER+1:IF SCOREBOMBE 
R=10 THEN 6000 s REM SCORE OF BOMBER 
3007 POKE 53249,250:POKE 53250,XIsREM PLAYER 
1 OUT OF VIEW;PLAYER 2 AT OLD-PLAYER 1-POSI 
TION 

3010 FOR 1=1 TO 30:SOUND 0,V,B,14:F0R T=1 TO 
10:NEXT TsV=INT<(250-180)*RND<0>*180):REM E 
XPLOSION 

3020 IF 1=10 THEN POKE 53258,1:REM CHANGE SI 
ZE OF PLAYER 2 

3022 IF 1=20 THEN POKE 53258,3:REM CHANGE SI 
ZE OF PLAYER 2 

3040 NEXT I:POKE 53258,0:POKE 53250,250 
3050 SOUND 0,0,0,0:GUN=0:BQMB=0:GOTO 190 s REM 
NO SOUND;NEW ATTACK 

3500 IF PEEK (53257)01 THEN RETURN s REM IF N 
0 COLLISION THEN RETURN 
3502 GOSUB 7000 

3505 SCOREGUN=SCQREGUN+i:IF SC0REGUN=10 THEN 
GOTO 6000s REM SCORE 
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3507 POKE 53248,250:POKE 53251,X:REM PLAYER 
0 OUT OF VIEW;PLAYER 3 AT OLD-PLAYER 0-POSIT 
ION 

3510 FOR 1=1 TO 30:SOUND 0,V,8,14:F0R T=1 TO 
10:NEXT T:V=INT<<250-180)*RND<0)*180):REM E 
XPLOSION 

3520 IF 1=10 THEN POKE 53259,1:REM CHANGE SI 
ZE OF PLAYER 3 

3522 IF 1=20 THEN POKE 53259,3:REM CHANGE SI 
ZE OF PLAYER 3 

3540 NEXT I:POKE 53259,0:POKE 53251,250 
3550 SOUND 1,0,0,0:GUN=0:B0MB=0:GOTO 190 
5000 Y=INT((20-80)*RND(0)+B0):REM NEW VRTICA 
L POSITION 

5003 FOR I=PMBASE+512 TO PMBASE+640:POKE 1,0 
:NEXT I:REM CLEAR PLAYER 0 

5005 RESTORE 5020:FOR I=PMBASE+512+Y TO PMBA 

SE+517+Y:READ A:POKE I,A:NEXT I:REM THIS LOO 

P DRAWS PLAYER O 

5020 REM PLAYER 0 IN DATA 

5030 DATA 1,1,3,63,255,126 

5040 RETURN 

5300 STOP 

6000 PRINT "SCORE OF GUN: ";SCOREGUN:PRINT s 
PRINT "SCORE OF BOMBER: ";SCOREBOMBER:END 
7000 FOR I =F'MBASE+896 TO PMBASE+1024: POKE I, 
0:NEXT I:REM CLEAR PLAYER 3 

7010 RESTORE 7020:FOR I=PMBASE+B96+Y TO PMBA 

SE+903+Y:READ A:POKE I,A:NEXT I:REM THIS LOO 

P DRAWS PLAYER 3 

7020 DATA 4,8,2,73,0,42,0,82 

7030 RETURN 
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ROBOT ATTACK 


ROBOT ATTACK is a game which shows the easy use of the 
player-missile graphics. All four players are used. Player 0 thru 2 
are the robots and player 3 is the gun. 

Program Structure: 

Line 100 — 180: Writing of the titles. 

Line 190 — 200: Wait until a key is pressed. 

Line 220: Turn off the cursor. 

Line 230: GOTO subroutine. Initialize fast vertical 

movement of the player. 

Line 240: Set the parameters for speed control. 

Line 250 — 270: Initialice the screen. 

Line 280: Determine RAMTOP and set PM base address. 

Line 290: Turn on PM functions. 

Line 310: Erase all players and missiles. 

Line 320: Set the colors of the robots, (player 0—2) 

Line 330-350: Initialice the player 0—2 

Line 360: Set the color of player 3 

Line 370: Set horizontal position of player 3 

Line 380 —400: Initialize player 3 

Line 410: Store the horizontal and vertical position of 

the missile. 

Line 420: Store horizontal and vertical position of 

player 0—2. 

Line 430: GOTO subroutine MOVING. 

Line 440 — 480: Control of the movement of player 3. 

Line 490: Shoot missile when button is pressed. 

Line 500: Jump back, (infinite loop) 

Line 520 — 680: Initialize fast vertical movement of the player. 

Line 690 — 940: Subroutine. Moves the player 0 — 2 and the 

missile 3. Collision detection and sound. 

Line 950—1020: You lost, the robots are invaded. Start for a 
new game. 

You can extend the game. Let the robot shoot and accelerate the 
movement of the gun. 
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ROBOT A 


100 GRAPHICS 2+16 
110 CLR 

120 PRINT #6:PRINT #6:PRINT #6;" 

TTACK " 

130 PRINT #6:PRINT #6:PRINT #6;" COPYRIGHT ( 
C) 1982" 

140 PRINT #6 
150 PRINT #6;" 

160 PRINT #6;" 

170 PRINT #6;" 

180 PRINT #6;" 

190 IF PEEK(764)=255 THEN 190 

200 POKE 764,255 

210 GRAPHICS 0 

220 POKE 752,1 

230 GOSUB 520:GOSUB 610 

240 SCH1=2:SCH2=3 

250 ? " 5 " 

260 DIM X(4) 

270 SETCOLOR 2,0,0 

280 A-PEEK(106)-8s POKE 54279,A:PMBASE=256#A 
290 POKE 559,46:POKE 53277,3:REM ENABLE PM 
300 RESTORE 350 

310 FOR I=PMBASE+384 TO PMBASE+1023:POKE 1,0 
:NEXT I:REM EREASE PM 

320 POKE 704,216:POKE 705,216:POKE 706,216:R 
EM SET COLOR PM 0-2 
330 REM SET PLAYER 0-2 

340 FOR J=512 TO 894 STEP 128:RESTORE 350:Y= 

INT(RND(0)*90)+10:FOR I=PMBASE+J+Y TO PMBASE 

+J+9+Y:READ A:POKE I,A:NEXT I:NEXT J 

350 DATA 24,24,56,63,60,60,60,24,24,60 

360 POKE 707,56 

370 POKE 53251,200 

380 RESTORE 400:YP=65 

390 FOR I=PMBASE+896+YP TO PMBASE+900+YP:REA 

D D:POKE I,D:NEXT I 

400 DATA 28,28,124,28,28 

410 MX=0:MY=0 

420 X <1)=0: X(2)=-20:X(3)=-35 
430 GOSUB 690 
440 REM GUN MOVEMENT 
450 A=STICK(0) 
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460 IF A=13 THEN FOR 1=1 TO SCH2:D=USR(DOWN, 
PMBASE+895+YP):YP=YP+1:NEXT I:GOTO 490 
470 IF A=14 THEN FOR 1 = 1 TO SCH2:D=USR < UP,PM 
BASE+895+YP):YP=YP-1:NEXT I:GOTO 490 
480 FOR 1=1 TO 15:NEXT I 

490 IF STRIG(0)=0 THEN IF MX=0 THEN MX=200:M 
Y=YP:POKE PMBASE+386+MY,255 
500 GOTO 430 
510 STOP 

520 DIM UPC0DE$(22> : UF'=ADR (UPCODE*) 

530 RESTORE 580 
540 FOR I=UP TO UP+20 
550 READ BYTE:POKE I,BYTE 
560 NEXT I:RETURN 
570 REM 

580 DATA 104,104,133,204,104,133,203 
590 DATA 160,1,177,203,136,145,203 
600 DATA 200,200,192,7,208,245,96 
610 DIM DOWNCODE$ <22):DQWN=ADR(DOWNCODE$) 

620 RESTORE 660 

630 FOR I=DOWN TO D0WN+20 

640 READ BYTE:POKE I,BYTE 

650 NEXT I:RESTORE :RETURN 

660 DATA 104,104,133,204,104,133,203 

670 DATA 160,6,177,203,200,145,203 

680 DATA 136,136,192,255,208,245,96 

690 FOR J=1 TO SCH1 

700 FOR 1=1 TO 3 

710 POKE 53278,17:REM COLLISION CLEAR 

720 SOUND 1,12,8,9 

730 X(I)=X(I> +2 

740 IF X(IXO THEN 770 

750 IF X <I)>200 THEN 950 

760 POKE 53247+1,X(I) 

770 SOUND 1,0,0,0 
780 IF MX=0 THEN 810 
790 IF MX<40 THEN 880 
800 MX=MX—2:POKE 53255,MX 
810 D=PEEK(53259) 

820 IF D=0 OR D=8 THEN 920 
830 IF D=4 THEN D=3 

840 SOUND 0,60,10,8:SOUND 1,70,10,8:SOUND 2, 

10 , 8,2 
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850 X < D)=0 

860 PUNKT=PUNKT+2 

870 IF I NT (F'UNKT/28) = s PUNKT/28 THEN SCH2=SCH2 
-1 

880 MX=0:POKE 53255,MX 

890 POKE PMBASE+386+MY,0 

900 POSITION 10,0:? "SCORE: PUNKT; 

910 SOUND 0,0,0,0:SOUND 1,0,0,O:SOUND 2,0,0, 
0 

920 NEXT I 
930 NEXT J 
940 RETURN 

950 FOR T=1 TO 10:SOUND 0,6,13,8:SOUND 1,0,0 

,0 

960 FOR X=1 TO 18:NEXT X:SOUND 0,0,0,0:SOUND 
1,11,13,8:NEXT T 
970 SOUND 0,0,0,0 

980 FOR Z=30 TO 200:S0UND 2,Z,10,8:NEXT Z 
990 FOR S=1 TO 6:FOR P=60 TO 40 STEP -2:S0UN 
D 0,P,10,8:FOR X=1 TO 10:NEXT X 
1000 NEXT P:FOR P=40 TO 60 STEP 2:SOUND 0,P, 
10,8:FOR X=1 TO 10:NEXT X:NEXT P:NEXT S 
1010 SOUND 0,0,0,0 

1020 FOR 1=1 TO 8:POKE 53247+1,0:NEXT I:GOTO 
100 
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BALL 


BALL 

This game demonstrates the use of player-missile graphics asyou 
may need if you want to program games like Tennis, Squash, 
Wallbreaker etc. A ball is moving in a playfield that you can 
try to catch. If the ball bumps into your racket, you will get 
points. 

Lines 10—99 initiate the playfield, the player and the missile. 

Line 100 checks if the joystick is pressed. 

Line 119 always clears the collision register. 

Line 120 clears the last position of the missile. 

Lines 121 +122 set the vectors of the missile (the movement of 
the missile is the result of X-vector and Y-vector. In case of a 
collision with the wall only one vector will be changed). 

Line 130 draws the new missile position. 

Line 140: In case of collision with your racket the score is in¬ 
creased by one. 

This program demonstrates only the basic programming 
techniques, you need to create a game with a ball being reflected 
at a wall. 

Try to program "Tennis", "Squash", or "Wallbreaker". 

Make the game quicker by using greater steps in the movement, 
or even machine language subroutines. 

10 GRAPHICS 5:SETCQLQR 2,0,0 

15 COLOR 1:PLOT 0,0:DRAWTO 79,0:DRAWTO 79,39 
:DRAWTO 0,39:DRAWTO 0,0s REM PLAYFIELD 
20 POKE 559,46:REM SINGLE LINE RES. 

40 POKE 704,188:REM PLAYER:PINK 

50 I=PEEK<106)-8:REM P/M ADRESS 

60 POKE 54279,I:REM STORE ADRESS 

70 POKE 53277,3:REM ENABLE P/M 

75 POKE 53256,1:REM PLAYER TWICE NORMAL SIZE 
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80 F'MBASE=I*256 

85 FOR I=PMBASE+512 TO PMBASE+640:POKE I,0:N 
EXT I:REM CLEAR PLAYER 

90 POKE F'MBASE+512+85,60: POKE F‘MBASE+513+85, 
60s REM DRAW PLAYER 

92 FOR I=F'MBASE+3B4 TO PMBASE+512: POKE I,0:N 

EXT I:REM CLEAR MISSILE 

94 POKE PMBASE+384,3:REM DRAW MISSILE 

98 YV=INT (1#RND (0) +1) : XV=INT (-4*F:ND (0)+2) s RE 
M STARTVECTORS FOR MISSILE 

99 YM=19s XM=120:REM MISSILE TOP OF FIELD 

100 ST=STICK (0) : X=X+2# ( <ST=7> + < X< 195) ) : X = X-2 
*<(ST=11) + <X>45))sREM JOYSTICK?? 

110 POKE 53248,X 

119 POKE 53278,0:REM COLLISION CLEAR 

120 POKE PMBASE+384+YM1,0 s REM CLEAR LAST POS 
. OF MISSILE 

121 XM=XM+XV:YM1=YM:YM=YM+YV:IF XMC50 OR XM> 
205 THEN XV=-XV:SOUND 0,20,10,15:SOUND 0,0,0 
,0s GOTO 120 

122 IF YM<19 OR YM>92 THEN YV=-YV:SOUND 0,20 
,10,15:SOUND 0,0,0,0:GOTO 120 

130 POKE PMBASE+384+YM,3:POKE 53252,XM:REM D 
RAW NEW MISSILE POSITION 

140 IF PEEK (53256 ) 00 THEN P=P+1: PRINT "JSCO 
RE "jPsGOTO 92:REM ’IF COLLISION THEN PRINT 
SCORE 

200 GOTO 100:REM AGAIN AND AGAIN 
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SMART 


SMART 

SMART is a game in which the computer stores a combination of 
6 different colors in 4 places. Each color may appear more than 
one time. You have to find out the correct colors and combinations 
in less than 10 trials. After each trial, the computer tells you, 
how many colors are in the right place (black dots) and how many 
colors are present, but in the wrong place (red dots). Using this 
information, you must correct this cast. 

The program. 

The program runs under ATARI BASIC or CP/A Basic. It uses 
graphic mode 11 with the video controller GTIA (an upgraded 
CTIA). With this chip it is possible to show 16 different colors in 
BASIC. 

Structure of the program: 

Line 100 - 141: Title and Copyright 

Line 145: Wait until a key is pressed. Reset of the input 

buffer, otherwise the character is part of the next 
INPUT-instruction. 

Line 200—225: Drawing of the playfield using the XIO FILL 
instruction. 

Line 230—240: Draw details in the playfield 
Line 350—364: The RND-function is used for creating 4 different 
colors. The numbers of the colors are stored in 
the array C (1—4) 

Line 400—450: Read the joystick, which controls the color by 
vertical movement. Pressing the button sets 
current color to cursor position. 

Line 600—628: The computer checks how many colors can be 
marked with black (SCH) or red (WEI). 

Line 640—662: Show the result to the player. 

Line 670 — 700: "You lost". Show the right colors. 

Line 710 —730: "New game?" 

Line 800-810: "You won" 
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Line 1000-1030: 

Line 2000:2050: 
Line 3000-3050: 

Line 4000-4040: 


Subroutine, mark empty cursor position 
with predefined color. Move the cursor to 
next position. 

Change the color. 

Look for the coordinates of the next free 
cursor position (# PL) of the trial (# VER). 
Draw the result of one trial. 


Note: 

Colors may be different on different ATARI computers (PAL- 
version in Europe, NTSC in the US etc.). 

90 CLR :REM CLEAR MEMORY 
100 GRAPHICS 2+16 

110 PRINT #6SPRINT #6;" SMART "sPRIN 

T #6SPRINT #6 

120 PRINT #6; "COPYRIGHT (0 1982 BY"s 
130 PRINT #6;" ELCOMP PUBLISHING, INC. 

135 PRINT #6?" 53 REDROCK LANE "; 

140 PRINT #6;" POMONA, CA 91266 
145 REM KEY PRESSED ? 

150 DU=PEEK<764)sIF DU-255 THEN 145 

160 POKE 764,255s REM CLEAR INPUT 

200 GRAPHICS 11sREM TURN ON GRAPHICS 11 

210 COLOR Is REM DRAW IN BRIGHT ORANGE (GOLD) 

215 REM DRAW PLAYING FIELD IN COLOR 1 

220 PLOT 38,156s DRAWTO 38,0sDRAWT0 0,0sP0SIT 

ION 0,156s POKE 765,1 

225 Xl'O 18, #6, 0,0, "S: * 

230 REM DRAW HIDDEN FIELD 

232 COLOR Os REM DRAW IN BLACK 

233 FOR 1=2 TO 8 STEP 2 
235 PLOT 1,IsDRAWTO 26,1 
240 NEXT I 

250 REM DRAW HOLES 

255 COLOR Os REM DRAW IN BLACK 

260 FOR 1=20 TO 130 STEP 12 

270 FOR J=5 TO 20 STEP 4 

280 FOR K=0 TO 3 

282 PLOT J,I+K 

284 NEXT K 

286 NEXT J 
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288 NEXT I 

289 COLOR 10s REM DRAW IN BLUE GREEN 

290 FOR 1=19 TO 131 STEP 12 
292 FOR J=0 TO 4 STEP 4 

294 PLOT 30, I + J: PLOT 34,1+JsF'LOT 30,1+J+lsPL 
OT 34,I+J+l 
296 NEXT J 
298 NEXT I 

300 REM DRAW ALL EXISTING COLORS 

310 FOR 1=10 TO 120 STEP 20 

312 READ F 

314 FOR J=1 TO 10 

316 COLOR F 

318 PLOT 50,I+J:PLOT 51,I+J 
320 NEXT J 
322 NEXT I 

340 DATA 3,5,7,10,13,14 

350 REM CREATE COMBINATION 

351 DIM A(4),B(4),C(I) 

352 FOR 1=1 TO 4 
354 X=INT(RND(0)#6) 

356 RESTORE 340 
358 FOR J=1 TO X 

360 READ Y 

361 C(I)=Y 

362 NEXT J 
364 NEXT I 

400 REM LOOK FOR COMBINATION,USE JOYSTICK #1 
405 PL=1:VER=1:FA=1 

410 IF FLAG=0 THEN COLOR 1:GOSUB 1000:FLAG=1 
:GOTO 430 

420 COLOR 0:GOSUB 1000:FLAG=0 

430 IF STICK(0)=13 THEN FA=FA+1:GOSUB 2000 

440 IF STICK(0)=14 THEN FA=FA-1:GOSUB 2000 

450 IF STRIG(0)< >0 THEN 410 

500 REM PLACE COLOR 

510 GOSUB 2000 

515 B(PL)=X 

520 GOSUB 3000 

530 FOR I=—4 TO 4 

532 PLOT X-l,Y+I:PLOT X,Y+I:PLOT X+1,Y+I 
534 NEXT I 

540 IF PL=4 THEN 600 
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550 PL=PL+1 

560 GOTO 410:REM LOOK FOR NEXT COMBINATION 
600 REM COMBINATION RIGHT ? 

602 FOR 1=1 TO 4 

604 A(I)=C (I) 

606 NEXT I 

605 SCH=0:WE1=0 
610 FOR 1=1 TO 4 

612 IF B(I)=A <I) THEN SCH=SCH+1■B(I)=100:A<I 
) =200 

614 NEXT I 

620 FOR 1=1 TO 4 

622 FOR J=1 TO 4 

624 IF A (I)=B(J) THEN WEI=WEI+1:B<J>=100:A<I 
) =200 

626 NEXT J 
628 NEXT I 

640 IF SCH=4 THEN 800 
650 AN=1 

652 IF SCHOO THEN SCH=SCH-1: COLOR 0:G0SUB 4 
000:GOTO 652 

654 IF WEIOO THEN WEI =WEI-1: COLOR 4:G0SUB 4 
000:GOTO 654 
660 VER=VER+1 

662 IF VER<11 THEN PL=1:G0T0 410:REM NEXT TR 
IAL 

670 FOR 1=10 TO 200:SOUND 1,1,10,7:NEXT I:FO 

R 1=1 TO 200:NEXT I:SOUND 1,0,0,0 

680 RESTORE 3015 

682 FOR 1=1 TO 4 

684 READ X 

686 COLOR C<I) 

688 FOR K=0 TO 10 

690 PLOT X—1,1+K:PLOT X,1+K:PL0T X+l,l+K 
692 NEXT K 
694 NEXT I 

698 FOR 1=10 TO 200:SOUND 1,I,10,7:NEXT I:FO 
R 1=1 TO 200:NEXT I:SOUND 1,0,0,0 
700 FOR 1=1 TO 500:NEXT I 
710 ? "HONE MORE (1/0) 

715 INPUT DU 

720 IF DU=0 THEN ? " 3- " ; : END 
730 GOTO 90 
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800 ? "YOU'RE A CHAMPION !" 

810 GOTO 710 

1000 REM DRAW EMPTY HOLE 

1010 GOSUB 3000 

1020 FOR K=0 TO 3 

1022 PLOT X,Y+K 

1024 NEXT K 

1030 RETURN 

2000 IF FA>6 THEN FA=1 

2010 IF FAC 1 THEN FA=6 

2015 RESTORE 340 

2020 FOR 1=1 TO FA 

2022 READ X 

2024 NEXT I 

2026 COLOR X 

2030 FOR 1=1 TO 10 

2032 PLOT 60,1+10:PLOT 61,1+10 

2034 NEXT I 

2040 SOUND 1,100,12,7 

2042 FOR 1=1 TO 50:NEXT I 

2044 SOUND 1,0,0,0 

2050 RETURN 

3000 REM CALCULATE COORDINATES FOR NEXT FREE 
PLACE 

3010 RESTORE 3015 
3015 DATA 5,9,13,17 
3020 FOR 1=1 TO PL 
3022 READ X 
3024 NEXT I 
3030 Y=8 

3040 FOR 1=1 TO VER 
3042 Y=Y+12 
3044 NEXT I 
3050 RETURN 

4000 REM CALCULATE AND DISPLAY RESULT 

4010 RESTORE 4015 

4015 DATA 30,19,34,19,30,23,34,23 

4020 FOR 1=1 TO AN 

4022 READ X,Y 

4024 NEXT I 

4026 AN=AN+1 

4030 PLOT X,Y+(VER-1)#12 
4032 PLOT X,Y+<VER-1)#12+1 
4040 RETURN 
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BARRIER 


BARRIER is a game for one or two players. It is similar to 
"surround". The object is to force your opponent (the other 
player or the computer) to stop. The players are moving squares 
that leave behind a wall that neither player can go through. In 
addition, the computer places 2 or more barriers on the playing 
field. 

Three graphics modes are available: 3, 5, or 7. In mode three, the 
graphics are coarse, but the game is very fast. In mode 5 the 
graphics are finer and the game slower. In mode 7 the graphics are 
very fine and the game rather slow. 


5 k=3:uu=i:hin=z:kukuck=i7 

10 DIM A$ (12)iB$(12), C$ (12)»D$(12) 

12 GOTO 8999 

15 POP IPOKE 752 ,01 SOUND 0,0,0,0:SOUND 1,0,0 

,o:sound 2,o,o,o:sound 3,o,o,o:goto kukuck 
17 n=o:m=o 

20 GRAPHICS OIFOR W = 0 TO 79!? '"'JINEXT W:? " 
*>>> BARRIER <<<* "f 

23 FOR W = 0 TO 791? ""JINEXT W 
25 SEL=30:G0T0 GOOO 
30 SEL=40:G0T0 sogo 
40 SEL=50:G0T0 G030 
50 IF UU=1 THEN SEL=60:G0T0 6090 
GO SEL=30000 

G5 IF UU=1 THEN G=5500IEE=500012=300:S=3000 
GG IF UUOl THEN S = 4000:EE = 410 
70 a=o:b=o:c=o:d=o:aa=o:bb=o:cc=o:dd=o:gh=o: 
hj=xyz:abc=o 

80 IF K = 7 THEN XYZ=K+10 1 GG= 159 WW = 79 : R = 7G 1 Y = 
8z:t=4o:goto ioo 

90 IF K = 3 THEN XYZ = G:R=18:T=10:Y = 20:GQ = 39:WW 
=19:GOTO 100 

95 XYZ=8:K=5:R=3B:T=20:Y=42:QQ=79:WW=39 
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100 graphics k:color 3:SETC0L0R 2,0,0 
120 plot o,o:drawto gq,o:drawto qg,ww:drawto 
o,ww:drawto o,o 

140 SETCOLOR 2,1,13 

200 SETCOLOR 4,9,4 

220 SETCOLOR 1,0,0 

225 SETCOLOR 0,10,8 

230 COLOR 3 SETCOLOR 2,1,13 

240 COLOR 0:SETCOLOR 4,9,4 

245 GOSUB 9100 

250 COLOR 21 PLOT R,T 

255 COLOR 1IPL0T Y,T 

257 FOR JJ = 1 TO 501 NEXT JJ 

2S0 BALLA=2GS:G0T0 30005 

2G5 G=5500 

270 W=1100 

280 X=1150 

290 J=15 

300 HH=15 I COLOR 2 

320 GOTO 980 

330 LOCATE AA+R,BB+T,YY 

335 IF YYOO THEN GOTO S 

340 COLOR 2 .'PLOT AA+R, BB+T 

400 COLOR 1 

405 GOTO EE 

410 IF J< >15 THEN 1010 
420 GOTO 1000 
440 LOCATE CC+Y,DD+T,YY 
480 IF YYOO THEN GOTO 2000 
470 COLOR 1 I PLOT CC+Y,DD+T 

480 FOR QW= 1 TO 1 : LLL = 485 : GOTO 490 NEXT GW 
485 GOTO 620 
490 HH=15:j=15 

520 IF STICK(0)=15 AND STICK(1)=15 THEN 600 
540 HH=STICK(0)12=300 
560 J = STICK( 1 ) 

600 GOTO LLL 

620 IF HH=15 THEN 300 

640 GOTO 982 

980 IF STICK(0)=15 AND HH=15 THEN GOTO W 
982 IF STI CK ( 0 ) = 14 OR HH=14 THEN W=U00:G0T0 
W 

984 IF STI CK (0) =7 OR HH = 7 THEN W=1120.'G0T0 W 
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986 IF ST ICK ( 0 ) = 13 OR HH=13 THEN W=1140:G0T0 
W 

988 IF STICK(0)=11 OR HH=11 THEN W=1160:GQT0 
W 

990 GOTO W 

1000 IF STI CK < 1 ) = 15 THEN GOTO X 
1010 IF ST I CK ( 1 ) = 1 4 OR J = 14 THEN X=1110:G0T0 
X 

1030 IF ST ICK(1)=7 OR J = 7 THEN X=1130:G0T0 X 
1050 IF ST I CK ( 1 ) = 13 OR J = 13 THEN X=U50:G0T0 
X 

1070 IF STICK(1) = 11 OR J = ll THEN X=U70:G0T0 
X 

1080 GOTO X 

lioo bb=bb-i:goto 330 
1110 dd=dd-i:goto 440 
1120 aa=aa+i:goto 330 
1130 cc=cc+i:goto 440 
1140 bb=bb+i:goto 330 
1150 dd=dd+i:goto 440 
11 BO aa=aa-i:goto 330 
1170 cc=cc-i:goto 440 

2000 ? A$;" wins. " 

2020 M=M+1 

2500 ? "SCORE IS "JM?" : "JN 

2520 GOTO 30000 

2600 GOTO 2560 

3000 ? "The computer wins" 

3010 FOR G=1 TO 500INEXT Q 
3020 N = N+1 
3040 GOTO 2500 
4000 ? C$;" wins" 

4010 FOR Q=1 TO 500:NEXT Q 
4020 N=N+1 
4040 GOTO 2500 

5000 Z=620 l COLOR 1:A=C:B=D:F=A:H=B:I=0:E=0 

5020 GOSUB G LOCATE A+Y, B+T, YY I V = G 

5040 IF YYOO THEN 5140 

5060 c=a:d=b:e=i:gosub g 

5080 LOCATE A+Y,B+T,YY 

5100 IF YYOO THEN LLL = 5140: GOTO 490 

5105 ABC=ABC+1 

5110 GH=GH+i:iF GH=HJ THEN GH=0:ABC=ABC*1.2+ 
0.G:HJ = INT(3*K+ABC*K*RND(0) ) .'GOTO 5140 
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5120 plot c+y,d+t:goto z 

5140 IF G=5500 OR G=5520 THEN 00=INT(RND(0)* 
2+3) 

51G0 IF G=5540 OR G=55G0 THEN 00=INT<RND(0)* 
2+1 ) 

5180 a=f:b=h:qn oo gosub 5500 , 5520 , 5540,5560 

5200 LOCATE A+Y,B+T,YY:IF YY< >0 THEN LLL = 530 
OIGOTO 490 

5220 c=a:d=b:gosub gilocate a+y,b+t,yy:l=g 

5240 IF YYOO THEN I = 1 : LLL = 5300: GOTO 490 
5260 PLOT C+Y,D+T:G0T0 Z 

5300 a=f:b=h:on oo gosub 5520 , 5500 , 5550,5540 

5320 LOCATE A+Y , B+T , YY 1 IF YYOO THEN LLL = 538 
OIGOTO 490 

5340 plot a+y,b+t:c=a:d=b:goto z 

5380 IF 1=1 THEN A=FIB=H:GOSUB LIPLOT A+Y,B+ 

t:c=a:d=b:goto z 

5400 IF E= 1 THEN A = F : B = H : GOSUB UIPLOT A+Y,B+ 
t:c=a:d=b:goto z 

5420 GOTO 2000 
5500 B=B-1:G=5500:RETURN 
5520 B=B+1:G=5520:RETURN 
5540 A=A-1:G=5540:RETURN 
5560 A = A+1 I G = 5560 RETURN 

6000 ? "sraphic mode 3,5 or 7 < " J K »*' ) " ", l TRA 
P 6010:INPUT K:GOTO SEL 

Goio ? ;k:goto sel 

6030 ? "number of players “ 

6035 ? "1 or 2 (",'UU;") ""TRAP 60401 INPUT U 

u:goto 7000 

6040 ? UU:GOTO SEL 

6060 ? "number of barriers ("SHIN;") "IITRAP 
6070:INPUT HIN:GOTO SEL 
6070 ? HINIGOTO SEL 

6090 ? "enter name of 1st player ("JA*;") "; 
I INPUT A$:iF A$="" THEN 6110 
6100 B*=A$:GOTO 6120 
6110 A$=B$:? A$ 

6120 IF UU=2 THEN 6150 
6130 GOTO SEL 

6150 ? "enter name of 2nd player ("?C$?") "J 
IINPUT C$:iF C$="" THEN 6170 
6160 d$=c$:goto SEL 
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6170 ? d$:c$=d*:goto sel 
7000 IF UU=2 THEN 6090 
7010 GOTO SEL 

8999 GRAPHICS 2 

9000 POKE 764,255: FOR N = 0 TO 831? #6;"*" J.’NE 
XT W:POKE 752,1 

9010 ? #6 ' " BARRIER " ) FOR W = 0 TO 841? #6) 

:next w 

9020 FOR WAS = 0 TO 15 

9030 FOR WOL=15 TO 0 STEP -1 

9032 COL=CQL+1 

9035 SOUND 0,COL*1.1,14,101 SOUND l,ABS(C0L-2 
70),14,10 

9037 SOUND 2, RND ( 0 ) *WAS+5*4,10,10SOUND 3,CO 
L*WAS,10,10 

9040 SETCOLOR 0,WAS,WOL:SETCOLOR 4,WDL,WAS 
9045 POSITION 5,91? #6)I NT(COL) i " "JWAS?":" 

;wol;" 

9047 GOSUB 9447 

9049 FOR LOCK =0 TO 2.‘NEXT LOCK 

9050 NEXT WOL .‘NEXT WAS 
9055 GOTO 9300 

9060 COL=RND(0)*COL 

9070 GOTO 9020 

9100 IF HIN = 0 THEN 9120 

9110 COLOR 3:F0R W=1 TO HINIPLOT RND(0)*(QQ- 
4)+2,RND(0)*(WW-4)+2:DRAWTO RND(0)*(QG-4)+2, 
RND(0)*(WW-4)+2:NEXT W 
9120 RETURN 

9300 FOR JM=0 TO 14 STEP 1.5IF0R DER=0 TO 61 
SOUND 0,150+JM*4,6,ABS<JM-14) 

9305 GOSUB 9447 

9310 SOUND 3,100+JM*5,4,ABS(JM-14) 

9320 SOUND 1,230+JM*2,10,ABS(JM-14) 

9330 SOUND 2,RND(0)*220,4,ABS(JM-14) 

9335 SETCOLOR 0,RND(0)*15,DER:SETCOLOR 4,DER 
,rnd(0)*15:next der 
9340 NEXT JMIGOTO 9060 

9447 IF PEEK < 764)0255 THEN 15 

9448 IF STRIG(0)=0 OR STRIG(1)=0 THEN 15 
RETURN 

25620 FOR W = 0 TO 2 .‘SOUND 0,58,1 4,14 : NEXT WIS 
OUND OrOrOrO:RETURN 
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30000 BALLA=65 
30005 ? "waitins..." 

30010 POKE 764,255 
30030 G=PEEK(764) 

30040 IF STRIG(0)=0 OR STRIG(1)=0 THEN GOTO 
BALLA 

30045 IF G=255 THEN 30030 

30050 GOSUB 25620!IF G=33 THEN G=OOR 

30100 POKE 764,255!? !? !OOR=G 

30200 IF G=61 THEN 6000 

30210 IF G=23 THEN 6030 

30220 IF G=35 THEN 6090 

30230 IF G=57 THEN 6060 

30240 IF G=50 THEN M=0!N=0!G0T0 2500 

30250 IF G=21 THEN KUKUCK=65!GOTO 12 

30260 IF G=42 THEN 20 

30270 IF G=40 THEN 17 

31000 GOTO 30010 
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KNIGHT-BATTLE 


KNIGHT-BATTLE is a game for two players. One is the castle- 
lord, the other is the fiendish knight. Both players try to destroy 
the other by firing on him with artillery shells. You must destroy 
your opponent, before he destroys you. To fire, you input the 
angle (0—90°) and the amount of powder (1—15 bags). Watch the 
wind, as it will affect the trajectory of your shots. 

Good luck! 

10 DIM BURG*(15),RIT$(15>,C$<15),Z*(3),FR<3> 

20 GRAPHICS 2+1BISETCOLOR 4,3,0 

30 PRINT #6 

40 PRINT #G 

50 PRINT #S 

GO PRINT #6 

70 PRINT #G;" KNIGHT-BATTLE" 

80 IF PEEK(7G4)=255 THEN 80 

90 POKE 764,255 

95 GOSUB 9000 

100 GRAPHICS 7 

102 REM DRAWING OF HILL 

105 REM 

110 COLOR 1 .'GOSUB G000:B = 79 

120 PLOT 0,79!DRAWTO 159,79:PL0T 0,7B:DRAWT0 
159,78 

130 FOR 1=50 TO 90 

140 C = INT(RND(0)*7)I IF C = 4 THEN C = 3 

142 IF C=5 OR C=G THEN C=0 

143 IF B<2i THEN C=0 
145 B=B-C 

150 PLOT I,B:DRAWTO I,79:NEXT I 

155 FOR 0=70 TO 79!PL0T 90,0:DRAWT0 159,0:NEX 

T 0 
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160 A=79:F0R 1=120 TO 90 STEP -1 
170 C=I NT(RND(0)#6)IF C = 4 THEN C = 0 
172 IF C = 5 THEN C=3 
175 IF B>=A-2 THEN 190 
180 A = A~C 

190 PLOT I,A IDRAWTO 1,79 
200 NEXT I 

210 REM DRAWING OF CASTLE 
220 COLOR 3 

225 REM BODY OF CASTLE 

230 PLOT 155,G9:DRAWT0 155,55: DRAWTO 127,55.‘P 
OSITION 127,69 POKE 765,31X10 18 , #6,0,0 , "S I " 
240 N1=127:M1=55:N2=133:G0SUB 260 
250 N1=149:N2=155:G0SUB 260 
255 GOTO 270 

260 PLOT N2,Mi:DRAWT0 N2,M1-12:DRAWTO N1,M1-1 
2 :position ni,mi:poke 7G5,3:xio is,#g,o,o,“s: 

265 RETURN 

270 REM WINDOWS OF CASTLE 
280 S1 = 1331 COLOR 1 
290 FOR 1=1 TO 4 

300 PLOT S1,63:DRAWT0 SI , 63-2.* DRAWTO Sl-2,63- 
2:DRAWT0 S1-2,63:DRAWT0 SI,63 

310 plot si-i ,63-1:si=si+g:next I 

320 REM ROOFS OF CASTLE 
330 COLOR 1:H1=152:R=1:GOSUB 340 
335 COLOR 2:N1=127:N2=133:H1=130:R=2:G0SUB 34 
0 

337 GOTO 360 

340 PLOT N2,Ml-12:DRAWT0 H1,M1-17:DRAWTO H1,M 
1-17:P0SITI0N ni,mi-iz:poke 7G5,R:XI0 18,#6,0 

,0,"s:" 

350 RETURN 

360 REM POINTS ON CASTLE 

370 COLOR 3:F0R 1=132 TO 149 STEP 4:PL0T 1,54 

:plot i+i,54:next i 

380 REM DRAWING OF THE OPPONENT 
385 COLOR 2 

390 PO = INT <RND(0)#39+5) 

400 PLOT P0+6,77:DRAWT0 PO+3,77-5:DRAWTO PO+3 
,77-5:P0SITI0N P0,77:P0KE 765,21X10 18,#6,0,0 

," s:" 
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405 WD=INT(RND(0)#30+1) 

410 REM BURG$: INPUT 
415 C9=0:G0SUB 1040 

417 PRINT "CASTLE-LORD "^BURGS?": "JIGOSUB 10 
00 

420 H4=130 l H5=42 
425 REM 

427 IF C9=1 THEN H4 = PO+3:H5 = BIGOSUB 1040:PRIN 

t "knight ";rit$;": •• ;:gosub 1000 

430 T=0 

434 REM CALCULATION l BURGS 

435 GRAPHICS 7+32:G0SUB GOOO.'DEG .’T = 0 
43B IF C9=1 THEN 450 

440 WINK = 180-WINK 
450 V=PUL0+2+WW 
460 X=U*T*COS(WINK) 

470 Y = 0*T#SIN(WINK )-0.5*9.8*T''2 
472 IF Y1<2 THEN 480 
475 COLOR 0:PL0T XI»Y1 

480 XI=H4+V*XIY1=79-(H5+U*Y) 

481 IF XI>159 OR X1<1 OR Yl>79 THEN 520 

482 IF Y1<2 THEN 500 

485 FOR 1=0 TO 2:locate XI,Y1-I,FDIFR(I>=FDI I 
F FR(I)=2 AND XI>110 THEN 3000:REM SELF DESTR 
UCTION 

486 IF FR(I)=2 THEN 4000 I REM OPPONENT DESTROY 
ED 

487 NEXT I:IF FR(0)=3 OR FR(0)=1 THEN 600 
490 COLOR 2:PLOT XI,Y1I SOUND 0,Y1,8,9 
500 T=T+0.05:G0T0 460 

520 x=o: y=o:xi=o:yi=o 

530 IF C9=0 THEN C9=i:G0T0 425 
540 GOTO 410 

GOO DATA 1,1,1,0,-1,0,-1,1,0,0,2,0,2,2,2,1,2, 

-1 ,- 1,-1 

605 COLOR o:SOUND 0,0,0,0:SOUND 1,160,0,15 
610 FOR T1 = 1 TO 10 I READ Z1,22:PL0T X1+Z1,Y1+Z 
2:PL0T X1+Z2 , Yl+Zl : NEXT tkrestore 
620 FOR El = 1 TO 2001 NEXT Bi:SOUND 1,0,0,0:G0T 
0 520 

1000 REM BURGS: INPUT OF ANGLE 

1005 TRAP 10051 PRI NT "ENTER THE ANGLE "JIINPU 

T WINK 


57 



1010 REM BURG$: INPUT OF POWDER 

1020 TRAP 1020:PRINT "ENTER POWDER ";:INPUT P 

ULO:iF PULV<1 OR PULUM5 THEN 1020 

1030 RETURN 

1040 SOUND 0,0,0,0:REM WIND 
1050 FF =INT(RND(0)*2+1) 

1055 NN =INT(RND(0)*2+1):HH=RND(0)*7 

105S IF NN=1 THEN WD=WD+HH:GOTO 1060 

1057 WD = WD-HH:iF ABB < WD)>60 THEN 1050 

1060 WD=ABS(WD):WD=INT(WD):GF=ABS(WD)!IF FF=1 


THEN PRINT "> 

OTO 1080 

wind: 

< ■ 

*;gf?" 

" :g 

1070 PRINT “> 

wind: 

> • 

•;gf;" 

": w 


D = -WD 

1080 IF C9=l THEN WD=-WD 

1100 WW = WD/50I SOUND 3,30,8,ABS(WD)/8:RETURN 
3000 I=2!NEXT IIGOSUB 15000:REM DESTROY CASTL 
E 

3010 GRAPHICS 7+16+32:GOSUB SOOOIFOR 1=1 TO 2 

5:SETCOLOR 2,3,14:SETCOLOR 4,7,0:G0SUB 7000 

3020 C7=RND<0)*6+127 

3025 C5=RND(0)*6+127 

3030 C8=RND(0)*15+55-17 

3035 C6=RND(0)*15+55-17:SETCOLOR 4,3,2 

3040 COLOR OIPLOT C7,C8IPL0T C5,CG:SETCOLOR 2 

,3,0:GOSUB 7000:NEXT I 

3100 GOSUB 7040 

3500 FOR 1=55-17 TO 55-17+12 

3510 FOR PI=127 TO 127+6 

3520 COLOR 01 PLOT PI, I .'NEXT Pi: NEXT I 

3530 FOR 1=1 TO 200:C7=RND(0)*(D1+17)+127:D1= 

D1+0.06:CB=RND(0)*(D1+3)+55:PLOT C7,C8:NEXT I 

3540 GOSUB 7050:FOR 1=127 TO 159:PLOT 127,60: 

DRAWTO I,37:NEXT I 

3550 FOR 1=127 TO 148:PL0T 127,65:DRAWTO 1,54 

:next i:gosub 15000 :gosub gooo 

3560 FOR 1=1 TO 500:NEXT I:GRAPHICS 01IF C9=l 
THEN 3610 

3565 GOSUB 15000:G0SUB 16000:PRINT " 

BRAUO":GOSUB 8000 

3570 PRINT ""JBURG*;", YOU'RE A FINE LORD !" 
3580 PRINT "YOU HAUE BLASTED YOURSELF AND THE 
";INT<RND(0>*1000+100) 
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3590 PRINT "RESIDENTS OF YOUR CASTLE" 

3S00 GOTO 10000 

3G10 GOSUB 15000:G0SUB lGOOOZGOSUB 8000:PR INT 

"BRAOO ";rit$;" iyou haoe blasted the castle 

AND" 

3G20 PRINT INT < RND(0)#1000+100)‘" RESIDENTS." 
: GOSUB 15000:GOTO 10000 

4000 I=2:NEXT I:GRAPHICS 7+16+32:GOSUB GOOO 
4005 FOR 1=1 TO 25:SETC0L0R 4,7,0 
4010 C7=RND(0)*7+P0:SETCOLOR 4,3,2 
4020 C8=RND(0)*5+72:G0SUB 7000 

4030 PLOT C7,C8:NEXT I:GOSUB 7050 

4031 COLOR 0!FDR 1=0 TO SIPLOT PO,72+I:DRAWTO 
PO+7,72+1:next i:for UG=1 TO 200:next ug:gos 

UB 15000:GOSUB 6000 

4040 FOR 1 = 1 TO 500NEXT IZGRAPHICS 0:iF C9=l 
THEN 4090 

4050 GOSUB 15000:GOSUB 16000:PRINT " 

BRAOO !"ZGOSUB 8000 

4060 PRINT "LORD ";BURG$J" YOU HAOE DESTROYED 

4070 PRINT "YOUR OPPONENT ! CONGRATULATIONS ! 
"IGOTO 10000 

4090 GOSUB 15000 .'GOSUB 16000: GOSUB 8000: PR I NT 
" BRAVO!!!" 

4095 PRINT "KNIGHT "JRIT*;" YOU HAVE DESTROYE 
D YOUR" 

4100 PRINT "OWN CAMP ! NO ONE SURVIVED.":GOTO 
10000 

6000 SETCOLOR 4,9,11:SETCOLOR 0,15,0:SETCOLOR 
2,12,4:SETCOLOR 1,1,14:RETURN 
7000 SOUND 0,180,0,8 

7010 FOR B2=0 TO 5:SOUND 1,B2,14,8:NEXT B2 
7020 SOUND 1,0,0,0:RETURN 
7040 ZZ=8 

7045 SOUND 1,170,16,ZZ:SOUND 2,200,2,ZZ:RETUR 
N 

7050 ZZ=15:G0SUB 7045:SOUND 3,145,8,ZZ:RETURN 

8000 FOR 1 = 150 TO 81 STEP -IZSOUND 0,I,10,8.'N 
EXT I:SOUND 1,GO,14,8:SOUND 2,96,14,8 
8010 FOR B2=1 TD 200:NEXT BZZGOSUB 15000ZRETU 
RN 
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3000 GOSUB IGOOO:PRINT " KNIGHT - B 

ATTLE" 

9140 PRINT "ENTER NAME OF THE CASTLE-LORD "‘: 
INPUT BURG$ 

9150 PRINT "ENTER NAME OF THE KNIGHT ""INPUT 
RIT$ 

91G0 RETURN 

10000 TRAP 10000:PRINT "NEW GAME INPUT Z$: 
IF Z$(1 7 1)="N" THEN END 

iooio c$=burg$:burg$=rit$:rit$=c$:xi=o:yi=o:d 
i=o:goto ioo 

15000 FOR B2 = 0 TO 3 I SOUND B270r0r0:NEXT B2:RE 
TURN 

IGOOO GRAPHICS OISETCOLOR 474,2:SETCOLOR 2,4, 
2:RETURN 
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CALENDAR 


CALENDAR 

This program will produce a calendar for one year. Leap years are 
included. The result can be output to either the screen or to a 
printer. 

10 REM - CALENDARPROGRAM 

20 REM - THE PROGRAM CALCULATES THE 

CALENDAR OF ONE YEAR 

30 DIM A(150),A1(36G),A$(10),B*<12),C$(2>10P 
EN #2,4,0,"K:" 

40 GRAPHICS 2 SETCOLOR 4,8,2 : SETCOLOR 2,8,21 
POSITION 2,31? #G;"CALENDARPROGRAM" 

100 ? "for which year do you want the 
calendar INPUT J 

105 ? ">outPut to screen (1) or printer (2)" 
’• : GET #2 , AU 

107 IF AU = 50 THEN LPRINT CHR$(14>;" 
calendar for "JJILPRINT .’LPRINT ILPRINT "" 

no ji=j:if jcioo then j=j+isoo 

120 m=i:b$=" h :l=o:if int<j/4K>j/4 then iso 

130 IF INT(J/100) = J/100 THEN IF INT<J/400)<> 

J/400 THEN 150 

140 B$="(leap-year)" :L = 1 

150 T =INT((J-1893)/4) 

180 C=(J-1893+T)/7:C=INT((C-INT(C))*7+0.5) 
185 RESTORE 1390:F0R 1=1 TO 12:READ A:A(I)=A 

:next i:a(2 > =a(2)+l 

170 FOR M= 1 TO 12:REST0RE 1400.’F0R 1 = 1 TO MI 

READ A$:NEXT I 

180 D=0:iF M=1 THEN 200 

190 FOR 1 = 1 TO M-l :D = D+A< I ) .’NEXT I 

200 D=(D+C)/7 

205 D=INT((D-INT(D))*7+0.5) 

210 IF D=0 THEN D=7 
220 REM 
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230 T=0:F0R I =D-2 TO 0 STEP -1 : T = T+1 I A ( T+12) 

=(-i)inext i 

240 p=i:for j=d to 7:a<j+12)=p:p=p+i:next j 
250 RESTORE 1420:W=0:iF AU=50 THEN 400 
260 GRAPHICS 2:SETC0L0R 4,8,2IF0R J=0 TO 18 

step 3:read b*iposition j,oi? #g",b$:next j 

2S0 FOR 1=2 TO 9 

300 p=o:for J=0 TO 18 STEP 3 

310 P=P+1IQ=A(P+12)+W*7 

320 IF GK =0 AND AU = 50 THEN LPRINT CHR$(14)J" 

"jigoto 370 

330 IF GK =0 OR G>A(M) THEN 370 

334 IF AU=50 AND Q<10 THEN LPRINT CHR$(14);" 

335 IF AU=50 THEN LPRINT CHR$ < 14 ) J Q" "JIG 
OTO 370 

340 POSITION J,II? #6“Q 

370 NEXT JIW=W+i:iF AU=50 THEN LPRINT 

375 NEXT IZIF AU = 50 THEN NEXT MI RUN 

380 ? "J"JA$JIGET #2 ,KI NEXT MI RUN 

400 LPRINT CHR$(14)JA*ILPRINT ILPRINT IFOR J 

= 1 TO 7 I READ C$ILPRI NT CHR$(14)JC$J" "JINE 

XT JILPRINT IGOTO 290 

1390 DATA 31,28,31,30,31,30,31,31,30,31,30,3 
1 

1400 DATA JANUARY,FEBRUARY, MARCH,APRIL,MAY, 
JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER, 
DECEMBER 

1420 DATA SU,MO,TU,WE,TH,FR,SA 
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GUNFIGHT 


GUNFIGHT is for two players. Each player uses one joystick. Plug 
the joystick in port 1 and 2. Port 1 refers to the left player, port 2 
to the right player. 

GUNFIGHT starts with the Copyright-statement. Press one of the 
two trigger buttons and the playfield appears. Now you can move 
the cowboys. 

The Game 

You shoot by pressing the trigger. Each player has 10 cowboys 
and each cowboy 50 bullets. By holding the button pressed the 
gun keeps firing until the cowboy has no more bullets. There are 
2 ways to be killed: Your opponent can shoot you or you can 
drown in the sea. 

After each round the game waits for you to press the trigger. The 
game-status appears. It shows you the actual number of cowboys 
and bullets. When you press the trigger the game goes on with the 
next round. The winner of the game will be shown after you press 
the trigger button. Pressing the trigger the game starts again with 
the Copyright-statement. 

The Sea 

Don't touch this blue area because you will be drowned. 

If you run out of bullets: 

If you don't have any bullets you can only flee and hope that the 
enemy will touch the sea. 
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You can hide your cowboy behind any one of the three rocks. 
But when your opponent also hides behind a rock, he can shoot 
you as long as his gun is behind the rock. 


The program starts at hex 1000. To key the program in, you need 
a machine language monitor or the ATARI® Editor/Assembler 
cartridge. 

The starting address of the program GUNFIGHT is 1016 hex. 

Start with GOTO 1016. Skip the location between 175F and 1F98. 

1F98 = Start of display list 

2000 = End of display list and beginning of the background. 

Type in everything like it is. (Use the fill-command of 
a machine language monitor). 

2FFF End of background 



fc#*#*##*####*#*###*****#**###*##*####* 

* GUNFIGHT FOR ATARI * 

* BY HANS—CHRISTOPH WAGNER * 

* 07-12-19B1 NIJMEGEN—NL * 


************************************** 


CDUT EQU *F6A4 

PRIOR EQU *26F 

CONSOL EQU *D01F 

HITCLR EQU *D01E 

DLISTL EQU *230 

DLISTH EQU *231 

PFCOLO EQU *2C4 

PFC0L1 EQU *2C5 

PFC0L2 EQU *2C6 

PFC0L3 EQU *2C7 

PFC0L4 EQU *2CB 

PCOLRO EQU *2C0 

PC0LR1 EQU *2C1 

SDMCTL EQU *22F 

AUDF1 EQU *D200 

AUDC1 EQU *D201 

AUDF2 EQU *D202 

AUDC2 EQU *D203 


SCREENOUT 
PRIORITIES 
SPEAKER 
CLR COLL. 

DISP. LIST POINTER 

PLAYFIELDCOLOR 0 
PLAYFIELDCOLOR 1 
PLAYFIELDCOLOR 2 
PLAYFIELDCOLOR 3 
PLAYFIELDCOLOR 4 
PLAYERCOLOR 1 
PLAYERCOLOR 2 
DMA CONTROLLER 
AUDIOFREQUENCE 1 
AUDIOCONTROL 1 
AUDIOFREQUENCE 2 
AUDIOCONTROL 2 


HPOSMO EQU *D0G4 HOR. POS. MISSILE 1 

HP0SM1 EQU SD005 HOR. POS. MISSILE 2 

HPOSPO EQU *D000 HOR. POS. PLAYER 1 

HP0SP1 EQU *D0C>1 HOR. POS. PLAYER 2 


MOPF EQU *DOOO 

MOPL EQU *D008 

M1PF EQU *D001 

Ml PL EQU SD009 

POPF EQU *D004 

F'OPL EQU *DOOC 

P1PF EQU SD005 

PIPL EQU *DOOD 

STICKO EQU *278 

STICK1 EQU *279 

STRIGO EQU *284 

STRIG1 EQU *285 


COLL. MISSILE 1 TO PLAYF. 

COLL. MISSILE 1 TO PLAYER 

COLL. MISSILE 2 TO PLAYF. 

COLL. MISSILE 2 TO PLAYER 

COLL. PLAYER 1 TO PLAYF. 

COLL. PLAYER 1 TO PLAYER 

COLL. PLAYER 2 TO PLAYF. 

COLL. PLAYER 2 TO PLAYER 

JOYSTICK 1 
JOYSTICK 2 
TRIGGER 1 
TRIGGER 2 


DEC1 

WINFL 

BULLCO 

BULLC1 

LIFECO 

LIFECI 

SPMBASE 

LASTFL 

SWTCHFL 

LEGXFL 

LEGOFL 

LEG1FL 

LEGCO 


EQU PTX + 1 
EQU *D1 
EQU *D2 
EQU *D3 
EQU *D4 
EQU *D5 
EQU *D6 
EQU *D7 
EQU *DB 
EQU *D9 
EQU *DA 
EQU *DB 
EQU *DC 


AUX. DECIMAL CONVERSION 
SHOWS WINNER 
BULLETS PLAYER 1 
BULLETS PLAYER 2 
COWBOYS PLAYER 1 
COWBOYS PLAYER 2 
PLAYER MISSILE DMA BASE 
AUX. FLAG 

FLAG TO INDICATE LEFT .RIGHT SHOOTING 
GENERAL MOVE LEGFL 
MOVE LEGFL. PL. 1 
MOVE LEGFL. PL. 2 

COUNTER TO KNOW WHEN HAS TO MOVE LEGS 
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LEBC1 EQU $DD 
SCOUNTO EQU $DE 
SCOUNT1 EQU $DF 
PTO EQU $EO 
PT1 EQU $E2 


MPT1 
MOCOUNT 
MlCOUNT 
SONDOFL 
SOND1FL 

MIX 

COUNTO 
COUNT1 


EQU $E6 
EQU $EB 
EQU $EA 
EQU $EB 
EQU $ED 
EQU $EE 
EQU $EF 
EQU $FO 
EQU $F1 
EQU $F3 


SHPOH 

SHP1H 

MOFLG 

M1FLG 

MOVMOFL 

MOVM1FL 

SAUDF1 

SAUDF2 


EQU $F8 
EQU $F9 
EQU $FA 
EQU $FB 
EQU $FC 

EQU $FE 
EQU $FF 


COUNTER TO SLOW DOWN SO. 1 
COUNTER TO SLOW DOWN SO. 2 
PM POINTER OF PL. 1 
PM POINTER'OF PL. 2 
GENERAL PM POINTER 
PM POINTER OF M. 1 
PM POINTER OF M. 2 
COUNTER TO SLOW DOWN M.1 
COUNTER TO SLOW DOWN M.2 
INDICATES SOUND CREATION 

SHDW. HOR. POS. Ml 
SHDW. HOR. POS. M2 
SLOW DOWN PL.1 
SLOW DOWN PL.2 

JSR THROUGH THIS JMP INSTRUCTION 

SHDW. HOR. POS. PI 

SHDW. HOR. POS. P2 

INDICATES TRIGGER 1 

INDICATES TRIGGER 2 

IND. Ml IS MOVING 

IND. M2 IS MOVING 

SHDW OF AUDF1 

SHDW OF AUDF2 


MEMSIZE EQU 106 TOP OF RAM 

PMBASE EQU $D407 DMA PM BASE 


MASKO EQU $03 
MASK01 EQU $FC 
MASK1 EQU $0C 
MASK11 EQU $F3 


BITMASK TO CREATE Ml 
BITMASK TO CLEAR Ml 
BITMASK TO CREATE M2 
BITMASK TO CLEAR M2 


ORG $1016,$A800 


1016s A2FF 
1018: 9A 
1019s A94C 
101B! 85F5 


START 


101D 

101F 

1021 

1023 

1025 

1028 

1029 

102C 

102F 


A56A 

E910 

85D6 

A908 

8D6F02 

E8 

BEC602 

8EC802 

20AC13 


LDX #$FF 
TXS 

LDA #$4C 
STA JUMP 
LDA MEMSIZE 
SBC #16 
STA SPMBASE 
LDA #$08 
STA PRIOR 

STX PFC0L2 
STX PFC0L4 
JSR INIT 


INIT. STACK 

INIT. JUMP 


CALC. PMBASE 

GIVE PRIORITY SEE MANUAL 


PLA YFIELDCOLORS! «=0 (BLACK) 
INITIALISE OTHER STUFF 


* POLLING LOOP 


1032: 
1035 s 
1038: 
103B: 


200D11 

204711 

206F12 

20D712 


L00P2 


JSR MOVPO 
JSR M0VP1 
JSR MOVMO 
JSR M0VM1 


SERVICE PI 
SERVICE P2 
SERVICE MO 
SERVICE Ml 
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103E: 205612 
1041: 209C14 
1044: 203F13 
1047: 20BF13 
104A: 4C3210 


JSR CHCKTRIG 
JSR CHCKCOLL 
JSR SOUND 
JSR SWITCH 
JMP LOOF'2 


SERVICE TRIGGERS 
CHECK COLL. 

SERVICE SOUNDS 

SERVICE RIGHT OR LEFT COWBOY 
POLL AGAIN 


104D: 
1050: 
1052: 
1054: 
1056: 
1058: 
105B: 


20B610 

A5DA 

85D9 

24D8 

1003 

4C6F10 

4C8E10 


SETUPO 


OTHER1 


JSR MOVPOX 
LDA LEGOFL 
STA LEGXFL 
BIT SWTCHFL 
BPL 0THER1 
JMP SETUPXI 
JMP SETUPX2 


MOVE POINTERS TO GENERAL 

MOVE LEGFL TO GENERAL 
WHICH IMAGE RIGHT OR LEFT 

SETUP RIGHT ONE 
SETUP LEFT ONE 


105E: 



1069: 

106C: 


20AD10 

A5DB 

85D9 

24D8 

3003 

4C6F10 

4C8E10 


SETUP1 


0THER2 


JSR M0VP1X 
LDA LEG1FL 
STA LEGXFL 
BIT SWTCHFL 
BMI 0THER2 
JMP SETUPX1 
JMP SETUPX2 


SEE SETUPO 


106F: AO14 SETUPXI 

1071: A206 
1073: 24D9 LOOPS 
1075: 1005 
1077: BDE310 
107A: D003 
107C: BDEA10 LEG2 
107F: 91E4 STORE 
1081: 88 
1082: CA 
1083: 10EE 
1085: B9D510 L00P31 
1088: 91E4 
108A: 88 
108B: 10F8 
108D: 60 


LDY #19+1 

LDX #6 

BIT LEGXFL 

BPL LEG2 

LDA LEGTAB1,X 

BNE STORE A.T. 

LDA LEGTAB2,X 

STA (PTX),Y 

DEY 

DEX 

BPL LOOPS 
LDA B0DYTAB1.Y 
STA <PTX),Y 
DEY 

BPL LOOPS1 
RTS 


RIGHT ONE 


SPREAD LEGS? 
ALWAYS 


SETUP BODYPART 


108E: AO14 SETUPX2 

1090: A206 

1092: 24D9 LOOP031 
1094: 1005 
1096: BDFF10 
1099: D003 
109B: BD0611 LEG21 
109E: 91E4 STORED1 
1OA0: 88 
10A1: CA 
10A2: 10EE 

10A4: B9F110 LOOF’311 
10A7: 91E4 
10A9: 88 
1OAA: 10F8 
1OAC: 60 


LDY #19+1 SETUP LEFT SEE SETUPX1 

LDX #6 

BIT LEGXFL 

BPL LEG21 

LDA LEGTAB21.X 

BNE ST0RE01 

LDA LEGTAB22,X 

STA (PTX),Y 

DEY 

DEX 

BPL L00P031 
LDA B0DYTAB2,Y 
STA (F'TX).Y 
DEY 

BPL LOOF'311 
RTS 
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movpi: 


INTER 


GENERAL POINTER 


PLAYER DOESNT EXIST ANYMORE 


I BODYTAB1 DFB *18,*18,*7E,*18,*3B,*18,*08 


I B0DYTAB2 DFB *18,*18,*7E,*1B,*1C,*18 


*4E 










HOD: E6F1 MOVPO INC COUNTO 

llOF: A5F1 LDA COUNTC) 

1H1: C930 CMP #530 

1113: D031 BNE RTS1 

1115: A900 LDA #0 

1117: 85F1 STA COUNTO 

1119: AD7802 LDA STICKO 

111C: 203D12 JSR COMPARE 

111F: B025 BCS RTS1 

1121: B9B111 LDA JMF'TABO, Y 

1124: 85F6 STA JUMP+1 

1126: B98211 LDA JMPTABO+1, 

1129: 85F7 STA JUMP+2 

112B: 20F500 JSR JUMP 

112E: 204D10 JSR SETUPO 

1131: E6DC INC LEGCO 

1133: A5DC LDA LEGCO 

1135: C908 CMP #508 

1137: DOOD BNE RTS1 

1139: A200 LDX #0 

113B: 8E1FD0 STX CONSOL 

113E: S6DC STX LEGCO 

1140: CA DEX 

1141: 8A TXA 

1142: 45DA EOR LEGOFL 

1144: 85DA STA LEGOFL 

1146: 60 RTS1 RTS 


SLOWDOWNCOUNTER+: =1 

IF COUNTC>530 NO SERVICE 
COUNT:=0 

REQUEST STICK 
C=1 => NO SERVICE 

EXECUTE PLAYER MOVEMENT 
SETUP NEW PLAYER 
LEGC+:=1 

IF LEGC=B THEN LEGS:=NOT (LEGS) 

MAKE NOISE 
LEGC:=0 

LEGOFL:=NOT (LEGOFL) 


1147: E6F3 M0VP1 INC COUNT 1 

1149: A5F3 LDA COUNT1 

114B: 0930 CMP #530 

114D: D031 BNE RTS2 

114F: A900 LDA #0 

1151: 85F3 STA COUNT1 

1153: AD7902 LDA STICK1 

1156: 203D12 JSR COMPARE 

1159: B025 BCS RTS2 

115B: B99111 LDA JMPTAB1,Y 

115E: 85F6 STA JUMF'+l 

1160: B99211 LDA JMPTAB1+1,Y 

1163: 85F7 STA JUMP+2 

1165: 20F500 JSR JUMP 

1168: 205E10 JSR SETUP1 

116B: E6DD INC LEGC1 

116D: A5DD LDA LEGC1 

116F: C90B CMP #508 

1171: DOOD BNE RTS2 

1173: A200 LDX #0 

1175: BE1FD0 STX CONSOL 

1178: 86DD STX LEGC1 

117A: CA DEX 

117B: 8A TXA 

117C: 45DB EOR LEG1FL 

117E: B5DB STA LEG1FL 

1180: 60 RTS2 RTS 


SEE MOVPO 
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1181: A111AF JMPTABO DFW UPO,DOWNO,RIGHTO,LEFTO 
1184: 11BDU 

11B9: D711DD DFW URO,ULO.DRO,DLO 

118C: 11E311 
118F: E911 

1191: EF11FD JMPTAB1 DFW UP1,DOWN1,RIGHT1,LEFT1 
1194: 110B12 
1197: 1812 

1199: 25122B DFW UR1,UL1,DR1,DL1 

119C: 123112 
119F: 3712 

11A1: 20C510 UPO JSR CLRPLO CLRPLAYER 

11A4: A5E0 LDA PTO 

11A6: C90B CMP #11 

11A8: F004 BEQ NOMOV1 IF YCOOR=ll THEN NOMOVE 

11AA: C6E0 DEC PTO YC00R-:=2 

11AC: C6E0 DEC PTO 

11AE: 60 N0M0V1 RTS 

11AF: 20C510 DOWNO JSR CLRPLO 

11B2: A5E0 LDA PTO 

11B4: C9E3 CMP #*E3 

11B6: F004 BED N0M0V2 IF YC00R=227 THEN NOMOVE 

11BB: E6E0 INC PTO 

11 BA: E6E0 INC PTO YCOOR+:=2 

11BC: 60 N0M0V2 RTS 

11BD: A4FB RIGHTO LDY SHPOH 

11BF: C0C9 CPY #201 IF XCO0R>=200 THEN NOMOVE 

11C1: B006 BCS RGTORTS 

11C3: C8 INY 

11C4: 8C00D0 STY HPOSPO 

11C7: 84F8 STY SHPOH XCOOR+:=l 

11C9: 60 RGTORTS RTS 

11CA: A4F8 LEFTO LDY SHPOH 

11CC: C032 CPY #50 

1 ICE: 9006 BCC LFTORTS IF XC00R<50 THEN NOMOVE 

1 IDO: 88 DEY 

11D1: 8C00D0 STY HPOSPO 

11D4: 84FS STY SHPOH XC00R-:=1 

11D6: 60 LFTORTS RTS 

11D7: 20BD11 URO JSR RIGHTO RIGHTMOVE 

UDA: 4CA 111 JMP UPO UPMOVE 

HDD: 20CA11 ULO JSR LEFTO LEFTMOVE 

11E0: 4CA111 JMP UPO UPMOVE 

11E3: 20BD11 DRO JSR RIGHTO RIGHTMOVE 

11E6: 4CAF11 JMP DOWNO DOWNMOVE 

11E9: 20CA11 DLO JSR LEFTO LEFTMOVE 

11EC: 4CAF11 JMP DOWNO DOWNMOVE 
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11EF: 
11F2: 
11F4: 
11F6: 
11F8: 
UFA: 


20BF10 

A5E2 

C90B 

F004 

C6E2 

C6E2 

60 


UP1 


N0M0V3 


JSR 

LDA 

CMP 

BEQ 

DEC 

DEC 


SEE UPO 


11FD: 
1200 : 

1204: 

1206: 

1208: 


20BF10 

A5E2 

C9E3 

F004 

E6E2 

E6E2 

60 


D0WN1 


N0M0V4 


JSR CLRF'Ll 
LDA PT1 
CMP #*E3 


BEQ NQM0V4 
INC PT1 
INC PT1 
RTS 


SEE DOWNO 


120B: 

120D: 

120F: 

1211 : 

1212 : 

1215: 

1217: 


A4F9 RIGHT1 

C0C9 

B006 

C8 

8C01D0 

B4F9 

60 RGT1RTS 


LDY SHF'IH 
CPY #201 
BCS RGT1RTS 
I NY 

STY HP0SP1 
STY SHP1H 
RTS 


SEE RIGHTO 


1218: 
121 A: 
121C: 
121E: 
121F: 
1222 : 
1224: 


A4F9 LEFT1 

C032 
9006 
88 

8C01D0 

84F9 

60 LFT1RTS 


LDY SHP1H 
CPY #50 
BCC LFT1RTS 
DEY 

STY HPOSF'l 
STY SHP1H 
RTS 


SEE LEFTO 


1225: 200B12 UR1 JSR RIGHT1 

1228: 4CEF11 JMP UP1 


SEE URO 


122B: 201812 
122E: 4CEF11 


JSR LEFT1 SEE ULO 

JMP UP1 


1231: 200B12 DR1 
1234: 4CFD11 


JSR RIGHT1 
JMP D0UIN1 


SEE DRO 


1237: 201812 DL1 JSR LEFT1 

123A: 4CFD11 JMP D0WN1 


SEE DLO 


123D: A007 COMPARE 
123F: D94E12 LOOP5 
1242: F005 
1244: BB 
1245: 10FB 



1249: 98 FOUND 

124A: OA 
124B: A8 
124C: 18 
124D: 60 


LDY #7 
CMP COMTAB,Y 
BEQ FOUND 
DEY 

BF'L LOOF'5 

SEC 

RTS 

ASL 

TAY 

CLC 

RTS 


THERE ARE 8 DIRECTIONS 
STICK HAS VALUE 

IF NOT ALL VALUES CHECKED 
C=1 => NO VALUE 

Y:=2*Y 

C=0 => VALUE 
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12BD: A5EF ST0RE2 
12BF: 8D04D0 
12C2: 60 RTS3 

12C3: 46FC RESMO 

12C5: 46FA 
12C7: 205813 
12CA: AOOA 
12CCs B1E6 
12CE: 29FC 
12D0: 91E6 
12D2: A900 
12D4: 85EA 
12D6: 60 


LDA MOX 
STA HPOSMO 
RTS 

LSR MOVMOFL 
LSR MOFLG 
JSR RSOUNDO 
LDY #10 
LDA <MPTO),Y 
AND #MASK01 
STA <MPTO),Y 
LDA #0 
STA MOCOUNT 
RTS 


MOVMOFL:=FALSE 
MOFLG:=FALSE 
RESET SOUND 
YCOOR:=YC00R+11 

CLEAR MISSILE 


MOCOUNT:=0 


12D7: 24FD M0VM1 

12D9: 3029 

12DB: A5FB 

12DD: B5FD 

12DF: B5EE 

12E1: 1047 

12E3: C6D3 

12E5: A9AF 

12E7: BD03D2 

12EA: A5E2 

12EC: 85E8 

12EE: A5F9 

12F0: 24D8 

12F2: 1003 

12F4: 18 

12F5: 6908 

12F7: 85F0 ST0RE3 

12F9: 8D05D0 

12FC: AOOA 

12FE: B1EB 

1300: 090C 

1302: 91E8 

1304: E6EB M0VM11 

1306: A5EB 

1308: C910 

130A: DOIE 

130C: A900 

130E: 85EB 

1310: A5F0 

1312: C9D0 

1314: BO15 

1316: C92D 

1318: 9011 

131A: 24D8 

131C: 1005 

131E: E6F0 

1320: 4C2513 

1323: C6F0 DECR1 

1325: A5F0 STORE4 

1327: 8D05D0 

132A: 60 RTS4 

132B: 46FD RESM1 

132D: 46FB 

132F: 208013 


BIT M0VM1FL 
BMI M0VM11 
LDA M1FLG 
STA M0VM1FL 
STA S0ND1FL 
BPL RTS4 
DEC BULLC1 
LDA #*AF 
STA AUDC2 
LDA PT1 
STA MPT1 
LDA SHP1H 
BIT SWTCHFL 
BPL STORES 
CLC 

ADC #8 
STA MIX 
STA HP0SM1 
LDY #10 
LDA <MF'T1),Y 
ORA #MASK1 
STA (MPT1),Y 
INC MlCOUNT 
LDA MlCOUNT 
CMP #*10 
BNE RTS4 
LDA #0 
STA MlCOUNT 
LDA MIX 
CMP #208 
BCS RESM1 
CMP #45 
BCC RESM1 
BIT SWTCHFL 
BPL DECR1 
INC MIX 
JMP ST0RE4 
DEC MIX 
LDA MIX 
STA HF'OSMl 
RTS 

LSR M0VM1FL 
LSR M1FLG 
JSR RS0UND1 


SEE MOVMO 
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1332: AOOA 
1334: B1E8 
1336: 29F3 
1338: 91E8 
133A: A900 
133C: 85EB 
133E: 60 


LDY #10 

LDA (MF'Tl) , Y 

AND #MASK11 

STA (MPT1),Y 

LDA #0 

STA MlCOUNT 

RTS 


133F: 
1341: 
1343: 
1345: 
1347: 
1349: 
134B: 
134D: 
134F: 
1351: 
1353: 
1356: 
1358: 
135A: 
135D: 
135F: 
1361: 
1364: 
1366: 
1367: 
1369: 
136B: 
136D: 
136F: 
1371: 
1373: 
1375: 

1379: 

137B: 

137E: 

1380: 

1382: 

1385: 

1387: 

1389: 

138C: 

138E: 


24ED 

1024 

E6DE 

A5DE 

C910 

DO 1C 

A900 

85DE 

E6FE 

A5FE 

8D00D2 

100F 

A9A0 

8D01D2 

A900 

85FE 

8D00D2 


SOUND 


RSOUNDO 


60 RTS7 

24EE NOSDNDO 

1 OFB 

E6DF 

A5DF 

C910 

D0F3 

A900 

85DF 

E6FF 

A5FF 

8D02D2 

10E6 

A9A0 RS0UND1 
8D03D2 
A900 
B5FF 
8D02D2 
46EE 
60 


BIT SONDOFL 
BPL NOSONDO 
INC SCOUNTO 
LDA SCOUNTO 
CMP #*10 
BNE NOSONDO 
LDA #0 
STA SCOUNTO 
INC SAUDF1 
LDA SAUDF1 
STA AUDF1 
BPL NOSONDO 
LDA #*A0 
STA AUDC1 
LDA #0 
STA SAUDF1 
STA AUDF1 
LSR SONDOFL 
RTS 

BIT S0ND1FL 
BPL RTS7 
INC SC0UNT1 
LDA SC0UNT1 
CMP #*10 
BNE RTS7 
LDA #0 
STA SC0UNT1 
INC SAUDF2 
LDA SAUDF2 
STA AUDF2 
BPL RTS7 
LDA #*A0 
STA AUDC2 
LDA #0 
STA SAUDF2 
STA AUDF2 
LSR S0ND1FL 
RTS 


IF NOSOUND1 THEN SERVICE S0UND2 
SC0UNT+:=1 

IF SC0UNTO16 THEN SERVICE S0UND2 
SCOUNT:=0 

FREQUENCE:=FREQUENCE+1 

IF FREQUENCE 3 128 THEN RESET 
VOLUME-O 

FREQUENCE 3 © 

SONDOFL:=FALSE 
SEE ABOVE 


13BF 
1391 
1393 
1395 
1397 
1399 
139B 
139D 
139F 
13A2 
13A5 
13A8 
13AB 


A5F8 

C5F9 

66D8 

A5DB 

45D7 

1010 


SWITCH 


85D7 

205E10 

204D10 

20C312 

202B13 

60 


RTSS 


LDA SHF’OH 
CMP SHF' 1H 
ROR SWTCHFL 
LDA SWTCHFL 
EOR LASTFL 
BPL RTS8 
LDA SWTCHFL 
STA LASTFL 
JSR SETUP 1 
JSR SETUPO 
JSR RESMO 
JSR RESM1 
RTS 


IF X <P1)>=X(P2) THEN SWTCHFL:=TRUE 

IF SWTCHFL=LASTFL THEN RETURN 
LASTFL:SWTCHFL 
SETUP NEW IMAGES 
RESET MISSILES PREVENT SUICIDE 
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13AC: 202416 INIT 
13AF: 7D 
13B0s 434F50 
13B3: 595249 
13B6: 474B54 
13B9: 203139 
13BC: 383120 
13BF: 494E47 
13C2: 2E2057 
13C5: 2E2048 
13C8s 4F4641 
13CB: 434B45 
13CE: 522047 


JSR PRINT 
DFB *7D 

ASC "COPYRIGHT 1981 ING. W. HOFACKER GMBH" 


13D4: ODODOD 

13D7: ODODOD 

13DA: SD 

13DB: 20C816 

13DE: 202416 

13E1: 47554E 

13E4: 464947 

13E7: 4854 

13E9S 0D8D 

13EB: 20C816 

13EE: 202416 

13F1s 425920 

13F4: 482E43 

13F7: 2E2057 

13FA: 41474E 

13FD: 4552 

13FF: ODBD 

1401: 200016 

1404: A97D 

1406: 20A4F6 

1409: 20DD16 

140C: A93B 

140E: 8DC002 

1411: A9BA 

1413: 8DC102 

1416: A208 

1418: A900 

141A: 95E4 L00P1 

141C: CA 

14ID: 10FB 

14 IF: A90B 

1421: 85E2 

1423: A9E3 

1425: 85E0 

1427: A5D6 

1429: 18 

142A: 6903 

142C: 85E7 

142E: 85E9 

1430: 85E5 

1432: 18 

1433: 6901 

1435: B5E1 

1437: 18 

143A: 85E3 


5, 13, 13, 13, 13, 13 


DFB 141 
JSR SPACE 
JSR PRINT 
ASC /GUNFIGHT/ 


DFB 13,141 
JSR SPACE 
JSR PRINT 
ASC "BY H.C. 


WAGNER" 


DFB 13,141 
JSR STRTWAIT 
LDA #*7D 
JSR COUT 
JSR PLAYF 
LDA #S3B 
STA PCOLRO 
LDA #*8A 
STA PC0LR1 
LDX #8 
LDA #0 
STA PTX,X 
DEX 

BPL LOOF'l 
LDA #11 


WAIT FOR TRIGGER 

CLEAR SCREEN 
SETUP PLAYFIELD 

SET PLAYERCOLORS 


INIT SOME O-PAGE STUFF 


LDA #227 

STA PTO INIT PLAYER POSITION VERT. 

LDA SPMBASE 

CLC 


STA PTX+1 

CLC 

ADC #1 

STA PTO+1 

CLC 

ADC #1 

STA PT1+1 
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1441: AOOO 
1443: 98 

1444: 91E4 LOOP11 

1446: C8 

1447: DOFB 

1449: E6E5 

144B: A6E5 

144D: E4D7 

144F: 90F3 

1451: A937 

1453: 8D00D0 

1456: 85F8 

1458: A9C8 

145A: 8D01D0 

145D: 85F9 

145F: 46FB 

1461: 46FA 

1463: A900 

1465: 85DC 

1467: 85DD 

1469: 85D8 

146B: 85D7 

146D: A90A 


LDY #0 

STA (PTX),Y 
I NY 

BNE L00P11 
INC PTX+1 
LDX PTX+1 
CPX LASTFL 
BCC LOOP11 
LDA #55 
STA HPOSPO 
STA SHPOH 
LDA #200 
STA HP0SP1 
STA SHP1H 
LSR M1FLG 
LSR MOFLG 
LDA #0 
STA LEGCO 
STA LEGC1 
STA SWTCHFL 
STA LASTFL 
LDA #10 
l LIFECO 
k LIFECI 

> #50 

k BULLCO 
* BULLC1 
l #*CC 
k PFC0L1 
k #*1F 

> PFC0L4 
k #*0D 

k PFCOLO 
k #*BC 
k PFC0L2 
k #3 
k 53277 
t SETUPO 
: SETUP1 
i HITCLR 


CLEAR ALL PLAYERS 


INIT HOR POS. PLAYERS 


RESET SOME FLAGS AND COUNTERS 

EACH PLAYER 10 COWBOYS 

EACH PLAYER 50 BULLETS 


GIVE PLAYFIELD COLORS 
START PLM DMA 

SETUP PLAYERS 
RESET COLL. 


> #*FF 

i WINFL WINFL=TRUE 

k POPF 
: #*FF 
) MOPF 


! NOENDO 
! RESMO 
POPF 
#*04 
Ml PL 
#*05 
CHCKC0L1 


IF BEHIND ROCK NO RESET 
ELSE REST MISSILE 


IF 
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DRUNK 


THEN 














\COWBOYS : 


LIFECO 
DEC1 
DECQUT 
PRINT 
13,13,13 
"PLAYER 2 


BULLC1 

DEC1 

DECOUT 

PRINT 




DECOUT 

PRINT 

13,141 

STRTWAIT 

#$7D 

COUT 

PLAYF CLEAR SCREEN SETUP PLAYF. 

#*3B 

PCOLRO 

#*8A 

F'COLRl 

#*8C 

PFCOL2 

#*1F 

PFCOL4 

PFCOL1 

53277 


COLORS 


START 

















I PLAYDWN1 
R M0VP1X 
P PLAYDWN 
R MOV/POX 


X #18 
C PTX 
Y #20 


DWNLOOP 



COUT *F6A4 PRIOR *026F 

CONSOL *D01F HITCLR *D01E 

DLISTL *0230 DLISTH *0231 

PFCOLO *02C4 PFC0L1 *02C5 

PFC0L2 *02C6 PFC0L3 *02C7 UNUSED 

PFC0L4 *0208 PCOLRO *02C0 

PC0LR1 *02C1 SDMCTL *022F 

AUDF1 *D200 AUDC1 *D201 



MPT1 *ES MOCOUNT *tH 

MlCOUNT *EB SONDOFL *ED 
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APPENDIX 


A. Important addresses 

1. Color and luminance of background: 712 

Color: 0—240 in steps of 16 (grey, gold, orange, red-orange, 
pink, purple, purple-blue, blue, blue, light-blue, turquoise, 
green-blue, green, yellow-green, orange-green, light-orange) 
luminance: 0 (black) — 15 (white) 

example: POKE 712,16+8 produces a golden background of 
medium luminance 

2. color and luminance of playfield 0 : 708 

3. color and luminance of playfield I : 709 

4. color and luminance of playfield 2 : 710 

5. color and luminance of playfield 3 : 711 

6. color and luminance of player-missile 0 : 704 

7. color and luminance of player-missile 1 : 705 

8. color and luminance of player-missile 2 : 706 

9. color and luminance of player-missile 3 : 707 

10. graphic control : 53277 
example: POKE 53277,3 

enables player-missile graphics 

11. collision clear : 53278 

12. horizontal position of missile 0 : 53252 

13. horizontal position of missile 1 : 53253 

14. horizontal position of missile 2 : 53254 

15. horizontal position of missile 3 : 53255 

16. horizontal position of player 0 : 53248 

17. horizontal position of player 1 : 53249 

18. horizontal position of player 2 : 53250 

19. horizontal position of player 3 : 53251 

20. missile 0 to playfield collisions : 53248 

21. missile 0 to player collisions : 53256 

22. missile 1 to playfield collisions : 53249 

23. missile 1 to player collisions : 53257 

24. missile 2 to playfield collisions : 53250 

25. missile 2 to player collisions : 53258 

26. missile 3 to playfield collisions : 53251 

27. missile 3 to player collisions : 53259 

28. player 0 to playfield collisions : 53252 

29. player 0 to player collisions : 53260 
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30. player 1 to playfield collisions . 53253 

31. player 1 to player collisions : 53261 

32. player 2 to playfield collisions : 53254 

33. player 2 to player collisions . 53262 

34. player 3 to playfield collisions : 53255 

35. player 3 to player collisions : 53263 

36. player missile base address : 54279 

37. priority select : 623 


example: POKE 623,1 selects the following ranking: 

Player 0, player 1, player 2, player 3, playfield 0, 
playfield 1, playfield 2, playfield 3, background 

or POKE 623,8 selects the following rankings 
PFO, PF1, P0, PI, P2, P3, PF2, PF3, BAK 

38. random number generator : 53770 

39. size for all missiles : 53260 

example: POKE 53260,1 makes missile 0 twice normal size 

or: POKE 53260,255 makes all four missiles four 
times normal 1. 

40. size of player 0 : 53256 

example: POKE 53256,1 twice 

or: POKE 53256,3 four times normal size 

41. size of player 1: 53257 

42. size of player 2: 53258 

43. size of player 3: 53259 
B. How to create shapes 

Each player is eight dots wide. Each dot can be turned on 
separately by poking different values into the player missile 
memory. The far left dot has the highest and the far right dot has 
the lowest value. 

Values of the dots. 

128 69 32 16 8 4 2 1 


Add the values of all dots you want to turn on together and poke 
the sum into memory. 


92 
























best looking sizes: normal size for no. 5 

twice normal size for no. 1,2, 3,4, 6 


C. Special effects 
I. Explosion 

change very quickly color background 

example: poke random numbers into color register of 
background 

10 POKE 712, PEEK (53770): GOTO 10 


In addition, sound may be added. 

2. earthquake: 

move the whole screen a little bit in a horizontal direction 
example: 

10 A=PEEK (560) = 256 * PEEK (561) 

10 POKE A+4, 64+PEEK (53770) / 200 
30 GOTO 20 
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ANTIC 


To use the following programs on ATARIs with less than 48K RAM, please refer to 
"Important Notice" at the beginning of the book. 


The video processor “ANTIC" and the ATARI 400/800 computer 
The ATARI 400/800 computer uses a separate microprocessor, 
called "ANTIC", for generating a picture on the TV screen. This 
processor uses it's own control program, called the "display list". 
To understand the interaction between the microprocessor and 
the TV screen, one must understand how a picture is created on 
a TV screen. Fig. 1 shows this. 

A B 





Z 

Fig. 1 

An electron beam is deflected from point A to point B. As it 
sweeps across the screen, it's intensity changes, changing the 
brightness on the screen. 

At point B, the beam is darkened and brought back to C. There 
it is brightened and starts sweeping again, this time to point D. 
It continues in the same way until it reaches point Z. It is then 
darkened and returned to point A, and a new picture begins. 
Between A and Z, the beam sweeps the screen 262 times. Nor¬ 
mally, there are 525 lines on a TV screen, but only one half¬ 
picture, or 262 lines, is drawn at once. 

Most TV sets are overscanned. That is, the picture is larger than 
the screen. Therefore the computer uses only 192 lines for one 
picture. 
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ANTIC now works synchronously with the generation of the TV 
picture, using it's own control program, the display list. Now we 
will take a look at the display list. The program in fig.2 gives us 
a printout of this. 

10 A=PEEK(560)+256*PEEK(561) 

15 V=1 
17 H=8 

20 FOR I=A TO A+31 
22 POSITION H,V 

24 V=V+1:IF V>16 THEN V=1:H=20 


30 LPRINT Ij" 1 
40 NEXT I 

1 ;PEEK(I) 


39968 

112 

39984 

2 

39969 

112 

39985 

2 

39970 

112 

39986 

2 

39971 

66 

39987 


39972 

64 

39988 

2 

39973 

156 

39989 

2 

39974 

2 

39990 

2 

39975 

2 

39991 

2 

39976 

2 

39992 

2 

39977 

2 

39993 

2 

39978 

2 

39994 

2 

39979 

2 

39995 

2 

39980 

2 

39996 

2 

39981 

2 

39997 

65 

39982 

2 

39998 

32 

39983 

2 

Fig.2 

39999 

156 


The memory locations 560 (S230) and 561 (S231) contain the 
starting address of the display list. This is the decimal address 
39968 (8 9C20). We make a printout of the next 32 locations. 
This is also shown in fig. 2. 

Now, what do these numbers mean? To answer this question, we 
need a programming sheet for the ANTIC. This is shown in fig. 3. 
Unfortunately, these are all hex numbers, so we have to change 
our decimal addresses to hex. 112 (S 70) means that we start out 
with 3*8, or 24, empty lines. The next command is 66 (S42). 
On the left side of our programming sheet, we find CHR(40,2,8). 
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This means that we have 40 characters across the screen, with 2 
colors, and the height of one character is 8 TV lines. On the top 
is "LD MEM SCAN". With this command, the starting address 
of the next buffer has also been loaded. This is the following two 
bytes: 64 ($40) and 192 (S8C). This is the address S8C40(?). 
The lower address byte comes first, followed by the higher address 
byte, as per 6502 standards. S9C40 is the decimal address 40000. 
The next 23 lines all contain the value 02. This means that CHR 
(40,2,8) is used for the whole picture. The last command is 65 
(S 41). This is a jump instruction. The address of the JUMP is 32 
(S 20), the starting address of the display list. But this jump is not 
executed immediately. The processor waits for a vertical gap, 
when the beam moves from point Z back to point A, as in fig.1. 
Now let's look at how many TV lines we have. We have 3*8, or 
24, blank lines and 24*8, or 192, lines with text. 

We will now change the display list. First we will type in SHIFT- 
CLEAR. This clears the screen. Next we poke 39986,112. 

This changes the text line to 8 empty TV lines. If we list our 
program, this line is not used for text. By hitting the system reset 
key or by poking 39986,02, we reset the display list. 

Let's do another trial. Now we poke 39985,07. A black line 
appears on screen, twice as high as a normal text line. When we 
list our program, the letters in this line are also twice as high as 
normal. 07 means CHR(20,5,16); that is, 20 characters in one line 
with 5 colors, using 16 TV lines. But the following text is dis¬ 
placed. 

We have only 20 characters on this line. The remaining characters 
are printed on the next line. We get rid of this when we POKE 
39984,07. Now we have two lines of text, twice as high as normal, 
in the middle of our TV screen. 

In our next experiment with the display list, we change the star¬ 
ting address of the text buffer by poking 39973,00. On the screen, 
we now have only garbage. We see different types of graphics 
characters, some of them changing. These are the contents of 
memory locations, altered by the program. If we hit a few keys, 
some of the characters will change, but nothing else happens. By 
using the system reset key, we get our normal screen back. 



2 

8 



z z 


Fig. 3 
























The memory location 39972 contains the lower byte of the 
starting address. By poking POKE 39972,65, we shift the text 
one space to the left, and by poking POKE 39972,62, two places 


to the right. 


100 POKE 39973,0 
105 FOR J =200 TO 255 
110 FOR 1=0 TO 255 
120 POKE 39972,1 
130 NEXT I 
140 POKE 39973,J 
150 NEXT J 


Fig. 4 


The program in fig. 4 shifts the starting address of the text buffer 
from S 00 through S FF and from S C800 through FFFF. 
Different wandering patterns are created on the screen. 


For the next task, we will make one text line on the screen dis¬ 
appear. We first erase the screen with SHIFT-CLEAR, then we list 
the program from fig. 4. If we POKE 39978,34, line number 130 
disappears. With POKE 39978,02 it re-appears. In the display list, 
we have changed the command S02 to S22. This means vertical 
scrolling (VSCROL). Line 130 is hidden behind line 120. 


The program in fig. 5 changes the screen into 12 lines of text 
with 20 characters each. 


100 POKE 39971,71 

110 FOR 1=39974 TO 39985 

120 POKE 1,7 

125 NEXT I 

130 POKE 39986,65 

140 POKE 39987,32s POKE 39988,156 

150 PRINT CHR$(125) 

160 PRINT "THIS TEXT IS" 

170 PRINT "PRINTED ON THE SCREEN"" 

180 PRINT "IN CAPITAL LETTERS" " 

Fig. 5 


By doing this, we define a new display list by poking the 
appropiate values into the memory locations. 
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Display List Interrupts 
and the ATARI 


Display List Interrupts and the ATARI 

When we have worked with the display list of the ANTIC, we have 
only used the commands in the left half of the lable, shown in fig. 
1. The command in the right half of this table starts on display 
list interrupt (DLI). Before we deal with these DLl's, we will 
examine what an interrupt is and what happens, when an interrupt 
occurs. An interupt is a break in a running program by an external 
signal. When this signal reaches the CPU, the command, which is 
being executed is finished. Then the address in the program counter 
and the content of the status register are placed into the stack. 
Then the CPU performs an indirect jump to the interrupt service 
routine. 

There are two different kinds of interrupts with a 6502 CPU. 
There is the NMI, the non-maskable interrupt and the IRQ, the 
interrupt request. The IRQ can be controlled by program. If the 
interrupt bit in the status registers are not zero, an IRQ is not 
accepted (or vice-versa, a zero lets the CPU acknowledges an 
interrupt). This bit in the status-register is set or reset by the 
assembler commands SEI or CLI. 

The second possibility to interrupt a program in the NMI. This 
interrupt cannot be controlled by program and is always exe¬ 
cuted. 

The starting address for the interrupt service routines are in 
location S FFFE, S FFFF for the IRQ and S FFFA, S FFFB 
for the NMI. These are memory locations in ROM which cannot 
be altered. 

The interrupt service routine starts in ROM, but then it does an 
indirect jump over a memory location in RAM. This is the address 
S2000, S201 hex or 512, 513 decimal for the display list inter¬ 
rupts. 

If you want to use this interrupt, this memory location must con¬ 
tain the starting address of your interrupt service routine. You 
return to the normal program by a RTI instruction. 
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In our first example we will use the DLI to display the upper and 
lower half of the screen in two different colors. Therefore we 
change the content of a color register. The blue hue of the screen 
in graphics mode 0 is determined by the content of color register 2. 
The following program in machine code changes the content of 
the color register. It is written as an interrupt service routine. 


PHA 

48 

; (A) -+ stack 

LDA # DE 

A9 DE 

; DE means bright green 

STA WSYNC 

80 OA DY 

; see text 

STA CO LOR 2 

8D 18 DO 

; DE -+ color rey 2 

PLA 

68 

; get content of accu back 
stack 

RTI 

40 

; go back to normal program 


First the content of the accumulator is saved on the stack because 
it is changed in this program. The command STA WSYNC has a 
special meaning. While working on this interrupt, the CPU needs 
33 machine cycles until it starts our program. In this time the 
electron beam has nearly crossed the screen. If the content of the 
color register is changed now, the color will change from blue to 
green. But the duration from the start of the interrupt and the 
change of the color register is not always the same. There are 
changes of a few micro seconds. The border of the color change 
will jiggle slightly back and forth. Using the STA WSYNC 
command, the 6502 CPU is set to wait until a horizontal sync 
occurs. Then the color is changed with STA COLOR2. The code 
of the color is written directly to the color register of the CTIA 
and not to the RAM location. 

If this is done, the color would be changed on the next vertical 
blanking and not midway thru the screen's cycle. 

The color change shows the next program: 

10 DLI-PEEK(560)+256*PEEK(561) 

20 POKE DLI+16,130 

30 FOR 1=0 TO 10 

40 READ As POKE 1536+1,A:NEXT I 

50 DATA 72,169,222,141,10,212 

60 DATA 141,24,208,104,64 

70 POKE 512,0:POKE 513,6 

80 POKE 54286,192 
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In line 10 the beginning of the display list is encounterd and then 
a byte of this list is changed from S02 to S82 = 130. That means 
40 characters in one line, two colors, height equal to 8 TV lines 
and starting an interrupt. (See figure). 

39968 112 

39969 112 

39970 112 

39971 66 

39972 64 

39973 156 

39974 2 

39975 2 

39976 2 

39977 2 

39978 2 

39979 2 

39980 2 

39981 2 

39982 2 

39983 2 

The machine language program is poked into memory locations 
starting at S600. This address is stored in S200, 201 (512, 513 
decimal). Then the interrupt is enabled by writing a SC8 = 192 to 
the interrupt enable register of the CTIA at location S D40E = 
54286. 

After starting the program we see a sharp border between blue 
and green. 

If we change line 50 to 

50 DATA 72, 169, 222, 234, 234, 234 

we replace the STA WSYNC command with three NOP's. Now, 
the border between blue and green is jiggling on the right side of 
the screen. 

In our next example we will use the display list interrupt several 
times. But the interrupt service routines mustn't be very long. The 
change of the color or whatever else you want to do must be 
finished when the electron beam starts the next TV line. For 
showing multiple DLl's we use our program "MONSTER" on page 
114. We change lines 400 to 490 as it is shown in the next figure. 


39984 2 

39985 2 

39986 2 

39987 2 

39988 2 

39989 2 

39990 2 

39991 2 

39992 2 

39993 2 

39994 2 

39995 2 

39996 2 

39997 65 

39998 32 

39999 156 
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50 PRINT CHR$(125) 

60 POSITION 10,2 

70 PRINT "ONE MOMENT PLEASE" 

100 FOR 1=0 TO 1023 

110 POKE 16384+1,PEEK(57344+1) 

115 POKE 17408+I,PEEK(57344+I) 

120 NEXT I 
200 RESTORE 

205 FOR 1=16648 TO 16743 
210 READ A 
220 POKE I,A 
230 NEXT I 

250 FOR 1=17672 TO 17767 

260 READ A 

270 POKE I,A 

280 NEXT I 

400 PRINT CHR$(125) 

402 POKE 756,64 

405 FOR Y=1 TO 17 STEP 4 

410 FOR X=3 TO 35 STEP 5 

420 POSITION X,Y 

430 PRINT "ABCD" 

440 POSITION X , Y+l 
450 PRINT "EFGH" 

460 POSITION X,Y+2 
470 PRINT "IJKL" 

475 NEXT X 

477 NEXT Y 

500 POKE 756,68 

510 FOR 1=1 TO 50:NEXT I 

520 POKE 756,64 

530 FOR 1=1 TO 50:NEXT I 

540 GOTO 500 

1000 DATA 0,1,96,48,24,13,3,7 

1005 DATA 0,129,139,63,127,255,255,135 

1010 DATA 0,129,130,252,254,255,255,225 

1015 DATA 0,128,6,12,24,176,161,224 

1020 DATA 7,15,15,15,7,7,3,1 

1025 DATA 3,3,3,7,207,255,255,255 

1030 DATA 192,192,192,224,243,255,255,255 

1035 DATA 224,240,240,240,224,224,192,128 

1040 DATA 1,1,7,15,15,3,0,0 

1045 DATA 255,159,224,248,252,240,0,O 
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1050 DATA 
1055 DATA 
2000 DATA 
2005 DATA 
2010 DATA 
2015 DATA 
2020 DATA 
2025 DATA 
2030 DATA 
2035 DATA 
2040 DATA 
2045 DATA 
2050 DATA 
2055 DATA 


255,249,7,31,63,31,0,0 

128,128,224,240,240,192,0,0 

0,1,96,48,24,13,3,7 

0,129,139,63,127,255,255,135 

0,129,130,252,254,255,255,225 

0,128,6,12,24,176,161,224 

7,15,15,15,7,7,3, 1 

3,3,3,7,207,255,0,0 

192,192,192,224,243,255,0,0 

224,240,240,240,224,224,192,128 

1,1,7,15,15,3,0,0 

255,159,224,248,252,240, 0,0 

255,249,7,31,63,31,0,0 

128,128,224,240,240,192,0,0 


When we run this program, we have 5 rows of 7 monsters, opening 
and closing their mouth. Using the DLI, every row will have a 
different color and the mouth will be open or closed. We use 4 
interface service routines of the following form: 


PHA 


48 

LDA 

# COLORNR 

A9 DE 

STA 

WSYNC 

8D OA D4 

STA 

C0L0R2 

8D 18 DO 

LDA 

#CHARSET 

A9 44 

STA 

CABAS 

8D 09 D4 

LDA 

# ADRELO 

A9 15 

STA 

DPIV 

8D 00 02 

PLA 


68 

RTI 


40 


First, we load the accumulator with a color code wait for WSYNC 
and change the color register. Then we change the base address 
of the character set and set a new start address for the next inter¬ 
rupt service routine. 

This is exactly the same routine, except for the colorcode, the 
base address of the character set and the starting address for the 
third service routine. 


In the fourth service routine the starting address is reset to the 
beginning of the first routine. 
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The program shows the next figure. 

50 PRINT CHR$(125) 

60 POSITION 10,2 

70 PRINT "ONE MOMENT PLEASE" 

100 FOR 1=0 TO 1023 

110 POKE 16384+1,PEEK(57344+1) 

115 POKE 17408+1,PEEK(57344+I) 

120 NEXT I 

200 RESTORE 

205 FOR 1=16648 TO 16743 
210 READ A 
220 POKE I,A 
230 NEXT I 

250 FOR 1=17672 TO 17767 

260 READ A 

270 POKE I,A 

280 NEXT I 

400 PRINT CHR$(125) 

402 POKE 756,64 

405 FOR Y=1 TO 17 STEP 4 

410 FOR X=3 TO 35 STEP 5 

420 POSITION X,Y 

430 PRINT "ABCD" 

440 POSITION X,Y+l 
450 PRINT "EFBH" 

460 POSITION X,Y+2 
470 PRINT "IJKL" 

475 NEXT X 

477 NEXT Y 

500 BOSUB 700 

510 BOTO 510 

520 POKE 756,64 

530 FOR 1 = 1 TO 50s NEXT I 

540 BOTO 500 

700 DPLS=PEEK(560)+256#PEEK<561) 

705 POKE DPLS+8,130 

710 POKE DPLS+12,130 

714 POKE DPLS+16,130 

718 POKE DF'LS+20, 130 

720 FOR 1=0 TO 83 

730 READ As POKE 1536+1,As NEXT I 

770 POKE 512,0:POKE 513,6 

780 POKE 54286,192 
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790 RETURN 

1000 DATA 0,1,96,48,24,13,3,7 

1005 DATA 0,129,139,63,127,255,255,135 

1010 DATA 0,129,130,252,254,255,255,225 

1015 DATA 0,128,6,12,24,176,161,224 

1020 DATA 7,15,15,15,7,7,3,1 

1025 DATA 3,3,3,7,207,255,255,255 

1030 DATA 192,192,192,224,243,255,255,255 

1035 DATA 224,240,240,240,224,224,192,128 

1040 DATA 1,1,7,15,15,3,0,0 

1045 DATA 255,159,224,248,252,240,0,0 

1050 DATA 255,249,7,31,63,31,0,0 

1055 DATA 128,128,224,240,240,192,0,0 

2000 DATA 0,1,96,48,24,13,3,7 

2005 DATA 0,129,139,63,127,255,255,135 

2010 DATA 0,129,130,252,254,255,255,225 

2015 DATA 0,128,6,12,24,176,161,224 

2020 DATA 7,15,15,15,7,7,3,1 

2025 DATA 3,3,3,7,207,255,0,0 

2030 DATA 192,192,192,224,243,255,0,0 

2035 DATA 224,240,240,240,224,224,192,128 

2040 DATA 1,1,7,15,15,3,0,0 

2045 DATA 255,159,224,248,252,240,0,0 

2050 DATA 255,249,7,31,63,31,0,0 

2055 DATA 128,128,224,240,240,192,0,0 

3000 REN DATA FOR INTERRUPT ROUTINES 

3005 DATA 72 

3010 DATA 169,222 

3015 DATA 141,10,212 

3020 DATA 141,24,208 

3025 DATA 169,68 

3030 DATA 141,09,212 

3035 DATA 169,21 

3040 DATA 141,00,02 

3045 DATA 104,64 

3050 DATA 72,169,120,141,10,212 

3060 DATA 141,24,208,169,64 

3070 DATA 141,09,212,169,42 

3080 DATA 141,00,02,104,64 

3090 DATA 72,169,180,141,10,212 

3100 DATA 141,24,208,169,63 

3110 DATA 141,09,212,169,63 

3120 DATA 141,00,02,104,64 
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3130 DATA 72,169,240,141,10,212 
3140 DATA 141,24,208,169,64 
3150 DATA 141,09,212,169,00 
3160 DATA 141,00,02,104,64 

For the first time starts the program, by RUN, then by GOTO 
200. Do not wait each time for the change of the character sets. 
The interrupt service routines are poked into the memory in sub¬ 
routine 700, the data are stored at line 3000 ff. 

First all monsters are drawn, then, after a short pause, when the 
machine code is loaded, every row of monsters is a different 
color. 

It is very interesting to erase program line 402. You see how the 
text is written to the screen and then changed into the 
monsters. The uppermost row remains unchanged. 

With the display list interrupt, you can divide the screen into 
horizontal parts. But be careful. It is "critical in time" because 
it is a real time problem running parallel with the creating of 
the TV screen. 
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ATARI 400/800 and 
CTIA/GTIA 

Another video processor in the ATARI is the CTIA, which works 
closely with ANTIC. It prepares the signals received from the 
ANTIC for output to the TV set. It adds color, makes the player- 
missile graphics, and detects collisions. There are nine hardware 
registers, four of them used for player-missile graphics; the other 
five, according to the selected text or graphics mode. The 
memory location of these registers are SD016—SD01 A, but they 
are once more available in the RAM locations S2C4— S 2C8 
(decimal 708—712). During every vertical gap, the contents of 
these locations are placed in the locations SD016— SD01 A in 
the CTIA. 

The color itself is determined by a number. With a POKE 712,254, 
the background color is changed to a bright yellow. The program 
in fig. 6 changes the hue of the background. 

10 FOR 1=0 TO 254 STEP 2 
20 POKE 712,1 
30 FOR J=0 TO 25:NEXT J 
40 NEXT I 

Fig. 6 

The upper 4 bits of the content of one color register determine the 
hue; the lower 4 (of which the lowest one is not used), the 
luminance. Bit pattern %0000 is dark, %1110, light. The number 
for the hue can be found in table 9.3 of the ATARI BASIC Hand¬ 
book. The bit pattern %1101 1110 (S DE or decimal 222) is a 
bright green. If you POKE 710,222 the background behind the 
letters will become this color. 

The program in fig. 7 shows the background in different colors. 

10 FOR 1=240 TO 254 STEP 2 
20 POKE 710,1 
30 FOR J=0 TO 25:NEXT J 
40 NEXT I 

50 FOR 1=254 TO 240 STEP -2 

60 POKE 710,1 

70 FOR J=0 TO 25:NEXT J 
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80 NEXT I 
90 GOTO 10 

Fig. 7 

The luminance of the letters is determined by color register 709. 
You may vary only the luminance, not the color, of the letters. 
If the luminance of the letter and the background are the same, 
then the letter disappears, as shown in the text program (fig. 8). 

5 DIN N*<1) 

10 POKE 710,222 
15 INPUT N$ 

20 FOR 1=0 TO 14 

30 POKE 709,1 

40 FOR J=0 TO 50:NEXT J 

50 NEXT I 

60 INPUT N$ 

70 POKE 709,0 

Fig. 8 

You can use the color register for many purposes. A red back¬ 
ground signifies, "pay attention!", or a brightyellow says, "ALL 
IS WELL". The program in fig. 9 demonstrates this. 

5 PRINT CHR$(125) 

7 DIM N*(l) 

10 POSITION 10,10 

20 PRINT "K E I N M EINGEBEN" 

30 INPUT N$ 

40 IF N*<>"M" THEN GOTO 100 

43 POSITION 10,10 

44 PRINT " AUA 

45 FOR J=1 TO 100 
50 A=F'EEK (712) 

60 POKE 712,PEEK(710) 

70 POKE 710,PEEK(709) 

80 POKE 709,A 
90 NEXT J 

99 END 

100 PRINT CHR$ <125) 

110 POSITION 10,10 
120 PRINT "D A N K E " 

130 END 
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The ATARI 400/800 
and its Character Set 


The ATARI 400/800 and its Character Set 

Each character seen on the screen is represented of an 8 by 8 
matrix of little dots. Each dot is represented by one bit in one 
machine word, one byte. Therefore each character uses 8 bytes for 
its representation. The following figure shows the bit pattern for 
the character A. Inside the ATARI, these bit patterns are stored in 
ROM beginning in memory location S E000 = 57344. The first 
character in S E000 until S E007 is the space character. There are 
126 characters coded and stored from S E000 to S E3FF. 


Character Binary Pattern Hex. Dec. 



As this character set is in ROM (Read Only Memory) you cannot 
change it But with the ATARI, it is possible, to define your own 
character set. The character set must start at a 1 K page boundary 
like, for example, at S 4000: and the higher address-byte of this 
boundary must be stored in memory location S2F4 = 756. If you 
try PRINT PEEK (756) you get 224 and this is SEO. 
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Now, since we want to play around with this character set, we can 
use the following program to place the character set in RAM, 
where we can change it. 


100 FOR 1=0 TO 1023 

110 POKE 16384+1, PEEK (57344+1) 

120 NEXT I 

130 POKE 756,64 

200 FOR 1=16684 TO 16655 

210 PRINT PEEK(I) 

220 NEXT I 


Figure 2 

Move character set into hex 4000 


This mini-program also prints the bit pattern for the character A. 
To calculate the starting address of the bit pattern of the character 
A, do the following: 

The space character has the decimal code 32 the character A has 
the decimal code 65; the starting address of the bit pattern for the 
character A is then 

16384 + 33 * 8 = 16648 

In line 130 the page boundary is changed from S E0 to S40 = 64. 
Now the ATARI uses the character set in RAM which is 
changeable. With a POKE 16388,255 we change the space charac¬ 
ter. After this poke, every space character has a bright line in its 
middle. Only the cursor, the inverted space character, has a dark 
line. 

With POKE 16388,0 we switch back to the normal mode. If we 
change lines 200 until 220 in the above listing into the lines 
shown below, the character A is rotating on a horizontal axis. 
This program can only be stoped by hitting the RESET key. 
After doing this, the address in memory location 756 is the 
starting address of the character set in ROM. 


112 



200 FOR 1=16648 TO 16655 
205 POKE 16655, PEEK(16648) 

210 POKE 1-1, PEEK(I) 

220 NEXT I 
230 GOTO 200 
Figure 3 

You can obtain very different figures by changing the bit pattern 
of a letter. We will show this in our next program MONSTER 
in Figure 5. Figure 4 shows the design of our diminitive monster. 
It is represented by a 4 by 3 matrix of the letters. 

A B C D 
E F G H 
I J K L 

Further we will show how easy it is to change the figure by using 
two different character sets. 



Figure 4 


The bit pattern of each letter is changed and converted to a 
decimal number. These numbers are inserted as DATA statements 
in the program in Figure 5. 

The first character set is defined in the lines 1000 to 1055. 

The second character set (which differs only in the letters F and 
G) is defined in lines 2000 to 2055. In this character set, the two 
last bytes of the letter F and G are set to zero. This results in a 
rectangular open mouth on our monster. 
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The program starts by copying the original character set to S4000 
= 16384 and S4400 = 17403. Then the bit pattern for the letters 
A — L are changed by reading the newly definded values. (Lines 
200 — 280). In line 405, the first character set is chosen. 

lOO FOR 1=0 TO 1023 

110 POKE 16384+1,PEEK<57344+I) 

115 POKE 17408+I.PEEK(57344+I) 

120 NEXT I 
200 RESTORE 

205 FOR 1=16648 TO 16743 
210 READ A 
220 POKE I,A 
230 NEXT I 

250 FOR 1=17672 TO 17767 

260 READ A 

270 POKE I,A 

280 NEXT I 

400 X=10:Y=10 

405 POKE 756,64 

410 PRINT CHR$(125):REM CLEAR SCREEN 
420 POSITION X, Y 
430 PRINT "ABCD" 

440 POSITION X,Y+l 
450 PRINT "EFGH" 

460 POSITION X,Y+2 
470 PRINT "IJKL" 


500 POKE 756,68 

510 FOR 1=1 TO 50s NEXT I 

520 POKE 756,64 

530 FOR 1=1 TO 50s NEXT I 

540 GOTO 500 

1000 DATA O,1,96,4B,24,13,3,7 
1005 DATA 0,129,139,63,127,255,255,135 
1010 DATA 0,129,130,252,254,255,255,225 
1015 DATA 0,12B,6,12,24,176,161,224 
1020 DATA 7,15,15,15,7,7,3,1 


1025 DATA 3,3 
1030 DATA 192 
1035 DATA 224 
1040 DATA 1,1 
1045 DATA 255 
1050 DATA 255 
1055 DATA 128 
2000 DATA 0,1 
2005 DATA 0,1 


255.255 

243.255.255.255 
224,224,192,128 



, 128,224,24 
,96,48-, 24, 1 
29, 139,63, 1 


2010 DATA 0,129,130,252,254,255,255,225 
2015 DATA 0,128,6,12,24,176,161,224 


2020 DATA 7,15,15,15,7,7,3,1 
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Figure 5 
MONSTER 



















The print statement PRINT "ABCD" in line 430 doesn't print the 
letter, but the newly defined code. That is the first line of our 
monster. The next lines are printed with the remaining two print 
statements. 

Then in the lines 500 to 540 we switch between two character 
sets following a short delay loop. Our monster opens and closes 
its rectangular mouth. 

We could use a third character set and define the bit pattern for 
the letter G as 

DATA 255, 255, 255, 255, 255, 255, 255, 255 

If we call this character set, our monster closes its left eye. 

As a serious application of this technique, you could think of 
defining the shapes of electronic symbol and use them for the 
design of electronic circuits. 
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BOOKS and 
SOFTWARE 


ELCQMP 

For ATARI - PET - OSI - APPLE II - 6502 


ATARI BASIC - Learning by 

This new book is an "Action"- 
Book. You do more than read it. 
Learn the intricacy of ATARI- 
BASIC thorugh the short programs 
which are provided. The 
suggestions challenge you to 
change and write program 
routines. Yes, it's exciting - 
Many of the programs are 
appropriate for beginners as well 
as experienced computer users. 
(Screen Drawings, Special Sounds, 
Keys, Paddles + Joysticks. 
Specialized Screen Routines, 
Graphics and Sound. Peeks and 
Pokes and special stuff ). 

Order-No. 164 S9.95 

Games for the ATARI-Computer 
How to program your own games 
on the ATARI. Complete listings 
in BASIC and Machine Language 
of exciting games. Tricks and 

Order-No. 162 S7.95 

ATMONA-1 

Machine Language Monitor for 
the ATARI 400/800. 

This powerful monitor provides 
you with the firmware support 
that you need to get the most 
out of your powerful system. 
ATMONA-1 comes on a bootable 
cassette. No cartridges required. 
Disassemble, Memory Dump HEX 
+ ASCII, (Change Memory 
Locations, Blocktransfer, fill 
memory block, save and load 
machine language programs, start 
mach. Lang. Progr. (Printer 
optional). 

Comes with introductionary 
article on how to program the 
ATARI computer in machine 
language. (Available also in ROM) 
Order-No. 7022 619.95 

ATMONA-2 Superstepper 
A very powerful Tracer to explore 
the ATARI ROM/RAM area. Stop 
at previously selected address. 
Opcode or operand (cassette). 
Order-No. 7049 S49.95 


The Third Book of Ohio Scientific 
is now availablel 

Very important information for 
the OSI system experimenter. 
Interface techniques, system ex¬ 
pansions, accessories and much 
more (EPROM-Burner. 6522 1/0- 
card with 1 K RAM, Soundboard, 
EPROM/RAM board). 

Order-No. 159 $7.95 

The Fourth Book of OHIO 
VIP-Book - Very Important 
Programs. Many interesting pro¬ 
grams for OSI computers. Sorting 
(Binary Tree). Differential Equi¬ 
tation, Statistics, Astrology, Gas 
Consumption, Games a. s. o. 
Order-No. 160 $9.95 

VIP Package - Above book plus 
a cassette with the programs. 
Order-No. 160 A $19.95 

The Fifth book of Ohio Scientific 

Many exciting programs program¬ 
ming hints and tricks, Textwriter, 
Debugger for C1P, Games, Utilities 
and much more (polled keyboard) 
Order-No. 161 $7.95 

Invoice Writing Program for OSI- 
C1PMF, C4P. Disk and Cassette, 
8K RAM. 

Order-No. 8234 $29.80 

Mailing List for C1PMF or 
C4PMF 24K RAM 
250 addresses incl. phone number 
and parameters on one 5 1/4 disk) 

Order-No. 8240 $29.80 

8K Microsoft BASIC Reference 

Authoritative reference for the 
original Microsoft 4K + 8K 
BASIC developed forALTAIR 
and later computers including 
OSI, PET, TRS-80 and VIC. 
Order-No. 141 $9.95 

Expansion Handbook for 6502 
and 6802 

S-44 Card Manual describes all of 
the 4.5 x 6.5 44-pin S-44 cards 
incl. schematics. A MUST for 
every 6502 system user (KIM, 
SYM, AIM, VIC, PET, OSI) 
Order-No. 152 $9.95 




EDITOR/ASSEMBLER for 
ATARI 800, 32K RAM 

Extremely fast and powerful 
Editor/Assembler. (8K Source- 
code in about 5 seconds) Includes 
ATMONA-1. 

Order-No. 7098 S49.95 


Invoice Writing for very small 
business with ATARI 400/800 
16K RAM. 

Order-No. 7022, cass. S29.85 
Order-No. 7200, disc. $39.99 


ocomputer system; 
n to OS-65 D an 
etworking. Hardwar 


and ROM on one 
(SY2128 or 271 f 

Order-NO. 613 


2716 EPROM-Bur 
Order-No. 607 
8K EPROM/RAM 
Order-No. 609 


ELCOMP Publishing, Inc., 
Postbox 1194 Pomona, CA 91769 

Check, Money Order, VISA, Masterchart 
or PREPAID in USA. $5.00 handling fee 
side USA: Add 15 % shipping. CA add 6 
reaistered trademark of ATARI Inc. 







NOTES 



NOTES 



NOTES 



NOTES 



NOTES 



ATMONA-1 


ATMONA-1 

ATMONA-1 - The new machine language 
monitor for the ATARI 400 and ATARI 800 
computer. ATMONA-1 has been developed to 
provide you with the firmware support that you 
need to get the most out of your power system. 


ATMONA-1 is available on cassette and provides 
you with the following features: 

Commands: 

D: Disassemble (P) 

M: Memory Dump with or without ASCII 

Dump (P) 

C: Change content of memory location 

F: Fill memory block with a byte 

B: Transfer memory block 

L: Load a memory block from tape 

S: Save a memory block to tape 

6: ■ GOTO, START A PROGRAM 


0800 

0808 

0810 

0818 

0820 

0828 

0830 


0085C9A9Q385CBA9 8EI)CEK> 

2020650CC6CBD0F7 eLFKF'w 
C6C910EFA90885C9 FIPo>HEI 

A000B1C524CA3016 3>1E*J0V 

297FC97D9002A9A0 ) I PB) 

C920B00209402065 I OBI® e 

OC189005109E2Q75 LXF'EP" Li 



X = RETURN TO ATM0NA1 

SYSTEM RESET = RETURN TO ATM0NA1 


ATMONA has very user-friendly 
(P) = with printer option 


0800: 00 
0801: 85 

0803: A9 

0805: 85 

0807: A9 

0B09: 20 

OBOC: C6 

OBOE: DO 

0810: C6 

OB12: 10 

0814: A9 

OB16: 85 

0818: AO 

081 A: B1 

081C: 24 

081E: 30 

0820: 29 

0822: C9 

0824: 90 

0826: A9 


BRK 

C9 STA 

03 LDA 

CB STA 

20 LDA 

65 OC JSR 
CB DEC 

F7 BNE 

C9 DEC 

EF BPL 

08 LDA 

C9 STA 

00 LDY 

C5 LDA 

CA BIT 

16 Bill 

7F AND 

7D CMP 

02 BCC 

AO LDA 


dialogs. 


*C9 
£*03 
*CB 
£*20 
*0C65 
*CB 
*0807 
*C9 
*0803 
£*08 
*C9 
£*00 
(*C5),Y 
*CA 
*0836 
£*7F 
£*7D 
*0828 
£*A0 


Ing. W. Hofacker GmbH, 53 Redrock Lane, 
Pomona, CA 91766 / USA, (714) 623 8314 


0830 OC 18 90 05 10 9E 20 75 

0838 08 E6 C5 DO 03 E6 C6 D8 

0840 A5 C5 C5 C2 AS C6 E5 C3 

0848 90 17 24 C4 10 21 24 CA 

0850 10 ID C6 C9 E6 CA A5 C7 

0858 85 C5 A5 C8 85 C6 18 90 

0860 A2 C6 C9 DO B3 24 C4 10 

ATMONA-11 contains a super-duper tracer in¬ 
cluding a relocator, breakpoints, and register 

ATMONA-11 provides you with the following 

features: 

1. The Supertracer can stop at a previously 
selected address 

2. The Supertracer can stop at a previously 
selected operand 

3. The Supertracer can stop at a previously 
selected Op-Code 

4. The Supertracer stops at every BREAK- 
command, RTI-command, set-interrupt- 
command and at every Op-Code which 
does not represent a 6502-instruction. 

Pricing information: 

ATMONA-1 Order-No. 7022 $19.95 

ATMONA-2 Order-No. 7049 $49.95 

Ing. W. Hofacker GmbH, Tegernseerstr. 18, 
D-8150 Holzkirchen / West Germany 
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